! square sum from 1 to 100
PROGRAM ex5_1

  IMPLICIT NONE
  INTEGER :: n, sum

  sum = 0
  DO n  = 1, 100
    sum = sum + n * n
  END DO

  PRINT *, sum

END PROGRAM ex5_1