Составьте компьютерную программу, которая считает значение корней квадратного уравнения ах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.