program do_cao;

uses crt;

var A:array[1..100] of int64;

      n,i,max:byte;

function dc(x:int64):byte;

begin

        dc:=0;

        while x>0 do

                begin

                        dc:=dc+x mod 10;

                        x:=x div 10;

                end;

end;

begin

        clrscr;

        write('Nhap N: ');  readln(n);

        max:=0;

        for i:=1 to n do

                begin

                        write('A[',i,']= ');   readln(A[i]);

                        if dc(A[i])>max then max:=dc(A[i]);

                end;

        write('So co do cao cao nhat la: ');

        for i:=1 to n do

                if dc(A[i])=max then write(A[i],' ');

        readln;

end.

uses crt;
var n,i,max:longint; a:array[1..1000000] of longint;
{---Ham-do-cao---}
function dc(a:longint):longint;
begin
   dc:=0;
   while a<>0 do 
      begin
         inc(dc,a mod 10);
         a:=a div 10;
      end;
end;
{---Chuong-trinh-chinh---}
begin
   clrscr;
   write('N='); readln(n);
   for i:=1 to n do 
      begin
         read(a[i]);
         if dc(a[i])>max then max:=dc(a[i]);
      end;
   for i:=1 to n do 
      if dc(a[i])=max then 
         write(a[i],' '); writeln;
   readln
end.