program prob3
	implicit none
    integer(16) :: A
    real(16) :: B
    integer(16) :: intB,ans
    read(*,*) A, B
    intB = int(B*100+0.5,kind=16)
    ans = A*intB
    ans = ans / 100
    write(*,*) ans
	stop
end program prob3
