Какое число будет напечатано в результате выполнения программы

var i, k: integer;

function f(x: integer): integer;

begin

if x > 0 then

f := x mod 10 + f(x div 10)

else

f := 0;

end;

begin

k := 0;

for i := 1000 to 9999 do

if f(i mod 100) = 4 then

if f(i div 100) = f(i mod 100) then k := k + 1;

writeln(k);

end.