Program test_2013_2;
Var a,t:string;
i,j:integer;
begin a:=’NOIP2013’; j:=1;
for i:=2 to 8 do
if a[j]>a[i] then j:=i; j:=j-2;
for i:=1 to j do
write(a[i]);
end.
输出：NOIP