Составьте компьютерную программу, которая считает значение корней квадратного уравнения ах2+вх+с=0.

Блок схема не нужна.

Var b, a, c: integer;

x1, x2, x, d: Real;

begin

writeln ('Введите a, b, c') ;

readln (a, b, c) ;

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

if d>0 then

begin

x1: = (-b+sqrt (d)) / (2*a) ;

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

writeln ('D=', sqrt (d)) ;

writeln ('x1=', x1) ;

writeln ('x2=', x2) ;

end;

if d=0 then

begin

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

writeln ('D=', sqrt (d)) ;

writeln ('x=', x) ;

end;

if d<0 then

begin

writeln ('D=', sqrt (d)) ;

writeln ('Нет корней') ;

end;

end.