program yukicoder_2407 use, intrinsic :: iso_fortran_env implicit none integer(int32) :: w, z integer(int32) :: ans character(len=3) :: b read(input_unit, *) w, z, b select case(b) case("0.5") ans = (w + z) + (w + z) * 5 / 10 case("0.8") ans = (w + z) + (w + z) * 8 / 10 case("1.2") ans = (w + z) + (w + z) * 12 / 10 case("1.6") ans = (w + z) + (w + z) * 16 / 10 case("2.0") ans = (w + z) + (w + z) * 20 / 10 end select write(output_unit, '(i0)') ans end program yukicoder_2407