Найти значения функции у = х^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