read(5,100) n
      if (n <= 0)  write(6,200)
100   format(i8)
200   format("negative")
      stop
      end