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