Найдите ошибку: program prim2; var x,y: real; begin for x: =-10 to 10 do begin y; =sqr(x); writeln(x, ' ', y) end; end.

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.