uses crt;
var n,i,x,d,c,y,s,b,max: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap vao 1 so n nguyen duong:');readln(n); s:=n;
while n > 0 do begin d:=n mod 10; n:=n div 10; c:=c+1;y:=y+d;end;
for i:=1 to c do begin b:=s mod 10; s:=s div 10 ;a[i]:=b;
end;
max:=a[1];
for i:=2 to c do if max < a[i] then max:=a[i];
writeln('so ca so la:',c);
writeln('tong la',y);
write('so lon nhat la:',max);
readln;
end.

uses crt;
var n: longint;
    chrn: string;
    valn,sum,max,i,preperror: byte;
begin
    write('Nhap so can kiem tra: ');
    readln(n);
    str(n,chrn);
    for i:=1 to length(chrn) do
    begin
        val(chrn[i],valn,preperror);
        sum:=sum+valn;
        if max<valn then max:=valn;
        valn:=0
    end;
    writeln('Ket qua: ');
    writeln(length(chrn));
    writeln(sum);
    write(max);
    readln;
end.