1 থেকে 99 পর্যন্ত বিজোড় সংখ্যাগুলোর যোগফল; ফোরট্রান

program sum1to99
implicit none
integer::i,sum=0
do i=1,99,2
  sum=sum+i
  enddo
  write(*,*)'1+3+5+...+99=',sum
  endprogram sum1to99

Counting loop দিয়ে নির্দিষ্ট সংখ্যক অঙ্ক যোগ করা।

program sumdefnumb
implicit none
real::x=0,sum=0
integer::index,n
write(*,*)'put no. values u wanna add'
read(*,*)n
if (n<2)then
  write(*,*)'only one number??!!!'
  else
    do index=1,n
      write(*,*)'enter number to add'
      read(*,*)x
      sum=sum+x
      enddo
      write(*,*)'Sum=',sum
      endif
      endprogram sumdefnumb