program toplam_fonksiyonu
program toplam_fonksiyonu
integer::a,b,n,i,toplam
print*,"Ilk sayiyi giriniz:"
read*,a
print*,"Son sayiyi giriniz:"
read*,b
print*,"Kacar kacar artsin:"
read*,n
toplam=0
do i=a,b,n
toplam=toplam+i
end do
print*,a," den ",b," e,",n," er artan sayilarin"
print*,"toplami ",toplam," dir."
end program toplam_fonksiyonu