PROGRAM Toplama
!--------------------------------------------------------
! 06prg01.f95
! 1 + 2 + ... + N toplamını hesaplar
!--------------------------------------------------------
IMPLICIT NONE
INTEGER :: K, N, Top = 0

   PRINT *,"N sayısını girin:"
   READ *,N

   DO K = 1,N
     Top = Top + K
   END DO

   PRINT *,"Hesaplanan toplam : ", Top
   PRINT *,"Kuramsal   toplam : ", N*(N+1)/2

END