program somma

implicit none

integer ::i,n,ipw,isomma

write(6,*)' N ,ipw?'
read(5,*)n,ipw

isomma=0
do i=1,n
   isomma=isomma+i
   if(i/ipw*ipw == i  )then
      write(6,*)i,isomma
   endif
enddo

write(6,*)"-------------------- "
write(6,*)isomma

end program somma