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

На языке программирования Pascal определена функция. Определите, чему равно значение функции $\mathbf{f ( 5 2 9 7 4 3 ) :}$

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;