PROGRAM neliojuuri
  ! Ohjelma laskee neliöjuurilausekkeen arvon.
  IMPLICIT NONE
  REAL :: x, y
  INTRINSIC SQRT

  WRITE (*,*) 'Syötä luku x:'
  READ (*,*) x

  y = x**2 + 1

  WRITE (*,*) 'Luku x:', x
  WRITE (*,*) 'Arvo x**2 + 1:', y
  WRITE (*,*) 'Arvo SQRT(x**2 + 1):', SQRT(y)
END PROGRAM neliojuuri