fork download
copy 
  1. PROGRAM my_first_program
  2. INTEGER::i,j,k
  3. WRITE(*,*)'Enter the numbers to multiply:'
  4. READ(*,*)i,j
  5. k=i*j
  6. WRITE(*,*)'Result=',k
  7. STOP
  8. END PROGRAM my_first_program
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
5
4
stdout
copy 
 Enter the numbers to multiply:
 Result=          20
https://ideone.com/dBduCd
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!