1000  DO 5000 I=0,30
      I2=2*I
      I3=3*I
      I4=4*I
      I5=5*I
      WRITE(5,1200)I,I2,I3,I4,I5
1200  FORMAT(5I10)
5000  CONTINUE
      END
$