Образец решения квадратного уравнения, пригодится в будущем.
Program kavadratnoe;
Uses
Crt;
Var
x1,x2,D,x,a,b,c:real;

Begin
ClrScr;

WriteLn (‘Введите a’);
ReadLn (a);
WriteLn (‘Введите b’);
ReadLn (b);
WriteLn (‘Введите c’);
ReadLn (c);

D:=sqr(b)-4*a*c;
x:=(-b)/(2*a);
WriteLn (‘D=’,D:1:10);
While (D>0) do
begin
x1:=(-b+sqrt(D))/(2*a);
WriteLn (‘x1=’,x1:1:10);
x2:=(-b-sqrt(D))/(2*a);
WriteLn (‘x2=’,x2:1:10);
ReadLn;
end;
begin
if (D=0) then
WriteLn (‘x=’,x:1:10)
else
if (D<0) then WriteLn ('Решений нет'); end; Repeat until (keypressed) end.