Где ошибка???

[beygul]

Написал программу на паскале, которая решает квадратное уравнение. Но почему то выдаёт ошибку. Кто знает, где ошибка? Подскажите пожалуйста! Буду рад!

program uravnenie;
Var a, b, c, d, x1, x2: Real;
Begin
readln (a, b, c);
d:=sqr(b)-4*a*c;
if (d<0) then writeln ('Корней нет');
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
writeln (x1,x2);

end.

[ОДИНОЧЕСТВО В СЕТИ]

Но почему то выдаёт ошибку

какую и на какой строке? при каких исходных данных? перед else ; не ставится

[Cannibal]

program uravnenie;
Var a, b, c, d, x1, x2: Real;
Begin
readln (a, b, c);
d:=sqr(b)-4*a*c;
if (d<0) then writeln ('Корней нет')
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);

writeln (x1,x2);
end;
end.

[beygul]

вот скрин. всё равно выдаёт ошибку!

[lamak]

а как-же вариант когда дискриминант равен нулю?)

[lennon]

может нужно было добавить uses crt;