program testd
      do 2,i=1,10
      write (unit=6,fmt=100)i,i*i
    2 continue
  100 format(1x,i3,5x,i6)
      sop
      end