program MultiplyNumbers
  real :: a,b
  
  read(*,*) a, b
  
  write(*,'(es18.10)') a*b
  !  write(*,'(es9.2)') a*b


end program MultiplyNumbers
