Pascal. Протабулировать функцию: y=x^2 на отрезке [-10;10] с шагом 1

program table;

var

x: integer;

begin

for x := -10 to 10 do

writeln('x=', x, ' y=', x * x);

end.