PROGRAM potenssi
  ! Ohjelma laskee ja tulostaa numeerisen lausekkeen arvon.
  IMPLICIT NONE
  REAL :: k, x
  INTEGER :: n
  WRITE (*,*) 'Syötä lausekkeen k*x**n luvut k, x ja n:'
  READ (*,*) k, x, n
  WRITE (*,*) 'Luku k:', k, ' Luku x:', x, ' Luku n:', n
  WRITE (*,*) 'Arvo k*x**n:', k*x**n
END PROGRAM potenssi