   Program PanasonicB
   Implicit none
   Integer::i,j,k,l

      Read(*,*) i,j
      k=i*j
      If (MOD(k,2)==0) then
         l=k/2
      Else
         l=(k+1)/2
      End If

      Write(*,*) l
      Stop

   End Program PanasonicB