PROGRAM EX0301

IMPLICIT NONE
      INTEGER COUNTER,SUM
      INTEGER,PARAMETER::NUM=10
      INTEGER,PARAMETER::SPACE=2

      SUM=0

      DO COUNTER=0,NUM,SPACE
        SUM=SUM+COUNTER
      END DO

      WRITE(*,*)SUM

END