program main implicit none real x read(*,*)x write(*,*)x*3.5 end program main