Найти значения функции у = х^2+5 в промежутке [-5; 5] с шагом 1

Var
  x:integer;
begin
  for x:=-5 to 5 do Writeln(x:2,x*x+5:4)
end.

Результат
-5  30
-4  21
-3  14
-2   9
-1   6
 0   5
 1   6
 2   9
 3  14
 4  21
 5  30

Program p1;
var y,i:integer;
begin
for i:=-5 to 5 do
begin
y:=i*i+5;
writeln(i,' ', y);
end;
end.