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