*Giới hạn lớn quá nên không cho được nha bạn, rút về 100000000 thôi.
uses crt;
var a:array[0..100000000] of int64;
n,d,max,s,k:longint;
begin
clrscr;
write('n='); readln(n);
while n<>0 do
begin
k:=n mod 10;
inc(s,k);
inc(d);
if k>max then max:=k;
n:=n div 10;
end;
writeln('So nguyen N co ',d,' chu so');
writeln('Tong cac chu so cua N la: ',s);
writeln('Chu so lon nhat: ',max);
readln;
end.