Составьте компьютерную программку, которая считает значение корней квадратного уравнения

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 dgt;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 dlt;0 then
begin
writeln('D=',sqrt(d));
writeln('Нет корней');
end;
end.