program main implicit none integer ::i=0,n,m read(*,*)n m=1 do while(m