найдите ошибку:
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;BeginFor x:=-10 to 10 doBeginy:=sqr(x);Writeln(x, ' ', y)end;End.Я кстати вообще не знаю зачем для вычисления корня Вы взяли тип real.