Составить программу для решения квадратного уравнения a*x*x+b*x+c=0

Var

a, b, c, D: integer;

x, x2: real;

begin

write ('Введите a: ') ;

readln (a) ;

write ('Введите b: ') ;

readln (b) ;

write ('Введите c: ') ;

readln (c) ;

D : = sqr (b) - 4 * a * c;

if D > 0 then begin

x : = (-b - sqrt (D)) / 2 * a;

x2 : = (-b + sqrt (D)) / 2 * a;

writeln ('x1 = ', x, newline, 'x2 = ', x2) ;

end;

if D < 0 then writeln ('Корней нет.') ;

if D = 0 then begin

x : = (-b) / 2 * a;

writeln ('x = ', x) ;

end;

end.