Program ex0601
implicit none

integer counter
integer,parameter::lines=10

do counter=1,lines,2
    write(*,*) "Happy Birthday",counter
end do

stop
end