fork download
  1. program my_first_program
  2. integer::a,b,k
  3. read(*,*)a,b
  4. k=a*b
  5. print *,'result=',k
  6. end program my_first_program
Success #stdin #stdout 0.01s 5320KB
stdin
5
12
stdout
 result=          60