Построить таблицу значений функции f(x)=x²+8x+16 в пределах от -4 до +14.

Vari:integer;procedure F(x:integer);beginWriteln('x = ', x, ' y = ', x*x + 8*x + 16);end;beginFor i:= -4 to 4 do  F(i);end.
Результат:
x = -4 y = 0x = -3 y = 1x = -2 y = 4x = -1 y = 9x = 0 y = 16x = 1 y = 25x = 2 y = 36x = 3 y = 49x = 4 y = 64