Составьте программу заполнения одномерного массива А(N)пятью первыми членами геометрической прогрессии(b1=2,q=3)решить в паскале АВС
//PascalABC.NET 3.1 сборка 1200 begin var a := SeqGen(5, i -> 2 * Power(3, i)).Println; end.