По программе паскаль написать программу, которая выводит табличные значения функции у=х2+2. диапазон изменения аргумента от – 4 до 4, шаг аргумента 1

Var y,x:integer;
begin
for x:= -4 to 4 do begin
y:=sqr(x)+2;
writeln ('y=',y);
end;
end.