uses crt;
var s,s2,t,max,min,n,y,d:longint;
begin
clrscr;
readln(n);
t:=1;
min:=n mod 10; 
while n<>0 do
begin
 d:=d+1;
 y:=n mod 10;
 if max<y then max:=y;
 if min>y then min:=y;
 s:=s+y;
 t:=t*y;
 s2:=s2+y;
 s2:=s2*10;
 n:=n div 10;
end;
s2:=s2 div 10;
writeln('so N co ',d,' chu so');
writeln('chu so lon nhat :',max);
writeln('chu so nho nhat :',min);
writeln('tong cac chu so cua N la:',s);
writeln('tich cac chu so cua N la:',t);
if s>t then writeln('tong cac chu so cua N lon hon tich cac chu so cua N')
else writeln('tong cac chu so cua N nho hon tich cac chu so cua N');
write('so dao nguoc cua N la:',s2);
readln;
end.