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

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

rank=count(mytall<tall(:))+1

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

end program program1