PROGRAM syotto
  IMPLICIT NONE
  REAL :: x
  INTEGER :: n

  WRITE (*,*) 'Anna x ja n:'
  READ (*,*) x, n
  WRITE (*,*) 'x**n = ', x**n
END PROGRAM syotto