implicit none
integer:: i,n,somma

! versione con do 

write(6,*)'dammi N positivo'
read(5,*) n

somma=0
do i=1,n
   if ((i/2)*2 /= i)then
      somma=somma+i   
   endif

enddo
write(6,*)'somma=',somma
end