program solon_nhat;

uses crt;

var n,m:longint;

      max,vt,d:byte;

begin

       clrscr;

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

       d:=0;  m:=n;

       while m>0 do

              begin

                     d:=d+1;

                     m:=m div 10;

              end;

       max:=0; vt:=0;

       while n>0 do

              begin

                     if (n mod 10>=max) and (d mod 2=1) then

                            begin

                                   max:=n mod 10;

                                   vt:=d;

                            end;

                     d:=d-1;

                     n:=n div 10;

              end;

       write('Chu so lon nhat la: ',max,' voi vi tri la: ',vt);

       readln;

end.