*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.

uses crt;
var n:string; //minh dung n la string vi string co 255 ky tu
 i,temp,tong,max:integer;

begin
 readln(n);//doc n
 max := 0; tong := 0;
 for i:=1 to length(n) do
  begin
   val(n[i],temp);//val chuyen tu string sang so gan vao temp
   if temp > max then max := temp;
   tong := tong + temp;
  end;
 //xuat.....
 writeln('Số nguyên N có ', length(n) ,' chữ số');
 writeln('Tổng các chữ số của N là: ', tong);
 writeln('Chữ số lớn nhất: ', max);
 readln;
end.
//ez :))) code ở trên chưa đáp ứng đề bài (không xoá đó làm sao :)))