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

var b,a,c: integer;x1,x2,x,d: Real;beginwriteln('Введите a,b,c');readln(a,b,c);d:=sqr(b)-4*a*c;if d>0 then beginx1:=(-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 thenbeginx:=(-b)/(2*a);writeln('D=',sqrt(d));writeln('x=',x);end;if d<0 thenbeginwriteln('D=',sqrt(d));writeln('Нет корней');end;end.