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.