Question

СРОЧНО,ДАЮ 50 БАЛЛОВ,РЕШИТЕ ПЛИЗ (ПАСКАЛЬ 7 КЛАСС)

Answer 1

//Скучное решение
//Pascal ABC.NET v3.1 сборка 1219

Var
 s,a,n,i,max,at,maxr:integer;
begin
 readln(n);
 max:=-1;
 for i:=1 to n do
  begin
   readln(a);
   at:=a;
   while a>0 do
    begin
     s:=s+a mod 10;
     a:=a div 10;
    end;
   if s>max then
    begin
     max:=s;
     maxr:=at;
    end;
   s:=0;
  end;
 writeln(maxr);
end.


Пример ввода:
3
123
27
100
Пример вывода:
27