program series16
implicit none
integer::k,x,a=1,i=0
print*,'enter K:'
read*,k
print*,'enter a number:'
read*,x
do while (x>0 .or. x<0)
  print*,'enter a number:'
  read*,x
  i=i+1
  if (x>k) then
    a=a+i
  else
    a=0
  end if
end do
print*,'the order of last number greater than K:',a
end program series16