fork download
copy 
  1. program my_first_program
  2. integer::i,j,k,result
  3. write(*,*)'Enter two numbers'
  4. read(*,*)i,j
  5. k=i*j
  6. print *,' '
  7. result=k
  8. print *,'The result is:',result
  9. end program my_first_program
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
5 4
stdout
copy 
 Enter two numbers
  
 The result is:          20
https://ideone.com/7PzKvt
language:
Fortran (gfortran 8.3)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!