n = 1 10 write(6,100) n n = n + 1 goto 10 100 format(1x,i8) stop end