Ответ:

Объяснение:

var a,b,c,D : real;

begin

 readln(a,b,c);

 D:= sqr(b) - 4*a*c;

 if  D < 0 then

   writeln('У данного уравнения нет решений');

 if D = 0 then

   writeln('У данного уравнения одно решение : ', (-1*b)/(2*a));

 if D > 0 then

   writeln('У данного уравнения два решения', (-1*b+sqrt(D))/(2*a),' ',(-1*b-sqrt(D))/(2*a));

end.