program c_
    use,intrinsic :: iso_fortran_env
    use, intrinsic:: ieee_arithmetic
    implicit none
    integer(int64):: a
    real(real32):: b
    call ieee_set_rounding_mode(ieee_up)
    read*, a,b
    print'(i0)', (a*int(100*b))/100
end program c_