program docao_max;
uses crt;
var A:array[1..1000] of integer;
n,i,max:integer;
function dc(n:integer):integer;
begin
dc:=0;
while n>0 do
begin
dc:=dc+n mod 10;
n:=n div 10;
end;
end;
BEGIN
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
max:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if dc(A[i])>max then max:=dc(A[i]);
end;
write('Do cao lon nhat trong day la: ',max);
readln;
end.