program gaus_topla
integer::n,i,toplam
print*,"son sayiyi giriniz"
read*,n
do i=1,n
toplam=toplam+i
end do
print*,"Toplam= ",toplam
end program gaus_topla