do 10 n= 1, 20
10	  write(6,100) n
100   format(1x,i5)
      stop
      end