Program main
Implicit none
INTEGER::i,a,n,f=1 
real :: sum
Print*,"Enter 2 Numbers"
read*,a,n
Do i=1,n,1
f=f*i
sum=sum+(a**i/real(f))
end do
Print*,"The required sum is",sum
end program main