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