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