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