Var a,b,d,c:integer; begin d:=sqr(9)=4*a*c; IF d

Question

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 строке?

Answer 1

Двоеточие, скобочка?