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

var i, k: integer;
function f\(x: integer\): integer;
begin
if x > 0 then
f := x mod 2 + f\(x div 2\)
else
f := 0;
end;
begin
k := 0;
for i := 0 to 1023 do
if f\(i mod 32\) = 1 then
if f\(i div 32\) = f\(i mod 32\) then k := k + 1;
writeln\(k\);
end.