Question

Найдите ошибку: Program prim2; Var x,y: real; Begin For x:=-10 to 10 do Begin y;=sqr(x); Writeln(x, ' ', y) end; End.

Answer 1

y;=sqr(x); вот тебе и ошибка. Там ;=, а надо двоеточие и равно

y:=sqr(x); 

Ещё счётчик цикла должен быть целочисленный. Var x: integer, а у тебя real 

Program prim2;
Var y: real;
x:integer;
Begin
For x:=-10 to 10 do
Begin
y:=sqr(x);
Writeln(x, ' ', y)
end;
End.

Я кстати вообще не знаю зачем для вычисления корня Вы взяли тип real.