program bis
    integer :: i, j


    read *, i
    read *, j

    if (mod(i*j,2) .eq. 0) then
        print *, i*j/2
    else if (mod(i*j,2) .ne. 0) then
        print *, (int(i*j)/2)+1
    end if
end program bis
