Решить квадратное уравнение...

Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. Если d<0, то вывести сообщение "корней нет".

 

Pascal
program korni;
uses crt;
var a, b, c, x1, x2,d: real;
begin
write('vvedite koeffecienti uravnenia');
readln(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);
write('x1 = ',x1,'x2 = ',x2);
end;
if d<0 then write('kornei net')
else
begin
x1:=((-b)/(2*a);
write('x = ',x1);
end;
readln;
end.