program c_
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int64):: a,b1,b2,b3
    real(real64):: b
    
    read*, a,b
    b1 = int(b)
    b2 = int(b*10)-b1*10
    b3 = int(b*100)-b2*10-b1*100
    print'(i0)', a*b1+a*b2/10+a*b3/100
end program c_