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