program so_3chuso;

uses crt;

var A:array [1..3] of byte;

     n:integer;

     i,max,t,vt,j,tg:byte;

begin

       clrscr;

       write('Nhap so N: ');  readln(n);

       i:=0;  t:=0;

       while n>0 do

              begin

                     i:=i+1;

                     A[i]:=n mod 10;

                     n:=n div 10;

                     t:=t+A[i];

              end;

       writeln('a. Tung chu so la: ',A[3],' ',A[2],' ',A[1]);

       writeln('b. Tong cac chu so la: ',t);

       max:=A[1];  vt:=1;

       if A[2]>max then

              begin

                     max:=A[2];

                     vt:=2;

              end;

       if A[3]>max then

              begin

                     max:=A[3];

                     vt:=3;

              end;

       writeln('c. So lon nhat la ',max,' va vi tri la: ',vt);

       writeln('d. So dao nguoc la: ',A[1],A[2],A[3]);

       for i:=1 to 2 do

              for j:=i+1 to 3 do

                     if A[i]<A[j] then

                            begin

                                   tg:=A[i];

                                   A[i]:=A[j];

                                   A[j]:=tg;

                            end;

       writeln('e. So lon nhat co the la: ',A[1],A[2],A[3]);

       readln;

end.