Ответ:

Free Pascal

var

a, b, c : integer;

d, x1, x2 : double;

begin

writeln('Input a, b, с :');

read(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('Корнb квадратного уравнения : x1=', x1:2:2, '  x2=',x2:2:2);

end

else

  if d= 0 then begin

    x1 := (-b)/(2*a);

    Writeln('Корень квадратного уравнения : x=', x1:2:2);

  end

  else

    writeln('Решения нет')

end.