program series

implicit none

!program obliczajacy sume szeregu
! \sum_{i=0}^{\infinity} (\frac{1}{2})^i

integer :: i, max
real :: suma

write(*,*)'Ile wyrazow dodac?'
read(*,*)max

suma = 0.0

do i = 0, max

   suma = suma + 0.5**i

end do

write(*,*) 'Suma wynosi', suma

end