program main implicit none integer(8) w,d,sagyo integer i read(*,*)w,d do i=d,1,-1 sagyo=w/i**2 w=w-sagyo enddo write(*,*)sagyo end program main