Функция на Паскале

Что напечатает программа?

function f(x: integer): integer;
begin
  f := x * x - 4 * x + 29
end;

var i, k: integer;
begin
  k := 0;
  for i := -2 to 8 do
    if f(i) < 29 then
      k := k + 1;
  writeln(k)
end.