Исправте ошибку program qwer;var a,b,c,d:integer;beginreadln;d:=b*b-4*a*c;if (damp;gt;0)

Исправте ошибку program qwer;
var a,b,c,d:integer;
begin
readln;
d:=b*b-4*a*c;
if (dgt;0) then
writeln ('2 корня')
else
if (d=0) then
writeln('1 корень')
else
writeln('нет корней')
end.


Пишет всегда 1 корень