implicit none
integer:: i,n,somma

! versione con do while

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

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