fork download
  1. program Multiply
  2. real::a,b,result
  3. print *,' '
  4. read *,a
  5. read *,b
  6. result=a+b
  7. print *,'The result is:',result
  8. end program Multiply
Success #stdin #stdout 0.01s 5324KB
stdin
5
4
stdout
  
 The result is:   9.00000000