program Sommatoria

implicit none
integer :: i1,i2,i,somma
real ::x,somma1
i1=10
i2=20

somma=0
do i=i1,i2
   somma=somma+i
enddo
write(6,*)somma
end