Ответ:

var a,b,c:real;

begin

write('a=');

read(a);

write('b=');

read(b);

write('c=');

read(c);

if b*b - 4*a*c >= 0 then

begin

writeln ('x1=',(-b + sqrt (b*b - 4*a*c)) / (2*a));

writeln ('x2=',(-b - sqrt (b*b - 4*a*c)) / (2*a))

end

else write('корней нет')

end.