var
a,b,d,c:integer;
begin d:=sqr(9)=4*a*c;
IF d<0
THEN cообщить;нет;решения;
x1:=(-b+sqrt(D))/2*a;
write ;сообщить;результат;
end

где ошибка в 4 строке?