Составьте программку на языке Паскаль для решения квадратного уравнения.Коэффициенты a,b и

Program kvadratnoe_yravnenie;
Uses CRT;
Var a, b, c, d, d1, x1, x2 : real;
Begin
CLRSCR;
Writeln( введите первый коэффициент a= );
Readln(a);
Writeln( введите 2-ой коэффициент b= );
Readln(b);
Writeln( введите 3-ий коэффициент c= );
Readln(c);
d:=sqr(b)-4*a*c;
if dgt;=0 then
begin
d1:=sqrt(d);
x1:=(-b+d1)/2*a;
x1:=(-b-d1)/2*a;
writeln( x1= , x1:5:2);
writeln( x2= , x2:5:2);
end;
else
begin
writeln( уравнение не имеет действительных корней );
end;
repeat until keypressed;
END.