//Паскаль, шаг равен "1".
var
i:integer;
procedure F(x:integer);
begin
Writeln('x = ', x, ' y = ', x*x + 8*x + 16);
end;
begin
For i:= -4 to 4 do
F(i);
end.
Результат:
x = -4 y = 0
x = -3 y = 1
x = -2 y = 4
x = -1 y = 9
x = 0 y = 16
x = 1 y = 25
x = 2 y = 36
x = 3 y = 49
x = 4 y = 64