Построить таблицу значения функции y=x^2+8x+16 в пределах от -4 до +4 с использованием процедуры.

Построил, держи:

-4 0
-3 1
-2 4
-1 9
0 16
1 25
2 36
3 49
4 64

Шаг - 1. Процедуру использовал, можешь не сомневаться.

//Паскаль, шаг равен "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