PROGRAM summaus
  IMPLICIT NONE
  INTEGER, PARAMETER :: tarkkuus = SELECTED_REAL_KIND(12)
  REAL (KIND=tarkkuus) :: s = 0.0
  INTEGER :: i, n

  WRITE (*,*) 'Anna termien lukumäärä:'
  READ (*,*) n
  WRITE (*,*) 'Termejä: ', n

  DO i = n, 1, -1
    s = s + 1/(REAL(i, KIND=tarkkuus)**2)
  END DO

  WRITE (*,*) 'Summa on:', s
END PROGRAM summaus