implicit none
integer:: i,n,somma

! versione con do 

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

somma=0
do i=1,n
   somma=somma+i   
enddo
write(6,*)'somma=',somma
end