program program1
integer,allocatable,dimension(:)::tall
integer::mytall,n,rank,rank1

read(*,*)mytall,n
allocate(tall(n-1))
read(*,*)tall(:)

rank=count(mytall<tall(:))+1
rank1=mod(rank,10)

if(rank1==1) then
 write(*,'(i0,A)')rank,'st'
else if(rank1==2) then
 write(*,'(i0,A)')rank,'nd'
else if(rank1==3) then
 write(*,'(i0,A)')rank,'rd'
else
 write(*,'(i0,A)')rank,'th'
end if

end program program1