program main implicit none integer::N,K integer::i read *,N,K do i=2,N if(MOD(N,i).eq.0) then print '(i0)',N/i return end if end do print '(i0)',1 end program main