program main implicit none integer*8::R,C read *,R,C if(R.eq.C) then print '(i0)', (R*C-1_8)/4_8 else print '(i0)', (R*C-1_8)/2_8 end if end program main