C FORTRAN: SUM OF THE FIRST 10 INTEGERS
      PROGRAM SUMSQS
      DO 1 I=1,10
   1 SUM=SUM+I**2
      WRITE(6,2) SUM
   2 FORMAT(" SUM OF THE SQUARES OF THE FIRST 10 INTEGERS IS:",F6.1)
      CALL EXIT
      END