Помогите!!!!, Надо найти ошибку

{Программа нахождения корней квадратного уравнения}
program korni;
var a, b, c, x1, x2, d: real;
begin
write('‚Введите a, b, c: ');
readln(a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln('Корней нет')
else begin
d:=sqrt(d);
x1:=(-b+d)/(2*a);
x2:=(-b-d)/(2*a);
writeln('Корни: x1=', x1:10:4,' x2= ', x2:10:4);
end;
end.

не вижу ошибки. Что не работает?

скажу даже больше, турбо паскаль тоже ошибки не увидел...

в ДНК?

Один мой преподаватель, заглянув в листочек на экзамене, любил спрашивать студента: "а что это тут у вас за значок/закорючка?". Как ни странно, довольно частенько студент впадал в ступор.

А другой просил найти ошибку, когда её там не было. Проверка на понимание и вшивость. Я ж не зря в другой теме порекомендовал прочитать алгоритм. На худой конец посмотреть другие имплементации, коих там потом и накидали сердобольные форумчане.

в запятой, перед словом "Введите"

Hank
Это граматика

но таки ошибка в условии не было указано какую ошибку искать