Построить таблицу значений функции y=x²+8x+16 в промежутке (-4; 4) с шагом 1, с использованием процедуры. информатика 9 класс.

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