program ex0301

implicit none
      integer counter,sum
      integer,parameter::num=10

      sum=0

      do counter=0,num,2
        write(*,*)sum=sum+counter

      end do

end