等比数列の和の求め方のソースコードを載せてください。(初項a,公比r,項数nとする)