Вызовы функции

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

function f(x: integer): integer;
begin
  f := x * x - 2 * x + 6
end;

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