PROGRAM kertolasku
  ! Ohjelma lukee kaksi kokonaislukua sekä
  ! laskee ja tulostaa niiden tulon.
  IMPLICIT NONE
  INTEGER :: i, j
  WRITE (*,*) 'Syötä luku i:'
  READ (*,*) i
  WRITE (*,*) 'Syötä luku j:'
  READ (*,*) j
  WRITE (*,*) 'Luku i:', i
  WRITE (*,*) 'Luku j:', j
  WRITE (*,*) 'Tulo i*j:', i*j
END PROGRAM kertolasku