program main implicit none integer*8 l read(*,*)l write(*,*)((l-1)/2)**2 end program main