Составить программу на паскале. Вычислить корни квадратного

уравнения, заданного коэффициентами A, B,

C (предполагается, что а0 и что дискриминант

уравнения неотрицателен)

Var a, b, c, D, x1, x2:real;

begin

write ('Введите коэффициенты a, b, c: ') ;

readln (a, b, c) ;

D: = b*b-4*a*c;

if D>0 then

begin

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

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

writeln ('Два корня: ', x1,' и ', x2)

end;

if D=0 then

begin

x1:=-b/2/a;

writeln ('Один корень: ', x1)

end;

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

end.