Ответ:

Перебираем целые значения x от -5 до 7 включительно и для каждого вычисляем y = x · x + 5.

program Values;
var
  x, y: integer;
begin
  writeln(' x   y');
  for x := -5 to 7 do
  begin
    y := x * x + 5;
    writeln(x:3, y:5);
  end;
end.

Значения функции, полученные программой:

xy = x² + 5
-530
-421
-314
-29
-16
05
16
29
314
421
530
641
754