Найти значения функции у = х^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;beginfor i:=-5 to 5 do beginy:=i*i+5;writeln(i,, y);end;end.