Równanie kwadratowe w delphi

uses SysUtils; var A,B,C :Real; Delta, X1, X2 :Real; begin repeat writeln ('Podaj wspolczynniki rownania kwadratowego'); write ('Podaj A: '); readln (A); if (A 0) then begin write ('Podaj B: '); readln (B); write ('Podaj C: '); readln (C); Delta :=...