На языке программирования Pascal определена функция. Определите, чему равно значение функции f\(529743\):

function f\(n: integer\): integer;
var
p, digit: integer;
begin
p:= 0;
while n <> 0 do
begin
digit := n mod 10;
p:= p + digit;
n := n div 10;
end;
f := p;
end;