var
    number, sum: integer;

begin
    sum := 0;
    number := 8267;

    repeat
        while number <> 0 do begin
            sum := sum + (number mod 10);
            number := number div 10
        end
    until (sum / 10) <> 0;

    writeln(sum)
end.