program main
 implicit none 
 integer :: sum, k 
 sum = 1 
 do k = 1,19 
 sum = sum + 3**k
 end do 
 print*, "sum =", sum
 
end program main