fork download
  1. program Multiply
  2. real::a,b,result
  3. print *,'Enter the first number'
  4. read *,a
  5. print *,'Enter second:'
  6. read *,b
  7. result=a*b
  8. print *,'The result is:',result
  9. end program Multiply
Success #stdin #stdout 0.01s 5272KB
stdin
5
4
stdout
 Enter the first number
 Enter second:
 The result is:   20.0000000