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