program ideone;
{ в max_value у нас само максимальное число, а в max_sum сумма цифр этого числа }
var max_sum, max_value, current, current_sum: integer;
function sum(n: integer): integer;
var
  i, result: integer;
begin
   if n < 10 then
    sum := n
   else begin
    result := 0;

    while n > 0 do
    begin
        i := n mod 10;
        n := n div 10;
        result := result + i;
    end;

    sum := result;
   end;
end;
begin
    readln(current);

    repeat
        current_sum := sum(current);

        if current_sum > max_sum then
        begin
            max_sum := current_sum;
            max_value := current;
        end;

        readln(current);
    until current = 0;

    writeln('Result: ', max_value);
end.