Составьте программу заполнения одномерного массива а(n)пятью первыми членами прогрессии(b1=2,q=3)решить в паскале авс

//PascalABC.NET 3.1 сборка 1200
begin
  var a := SeqGen(5, i -> 2 * Power(3, i)).Println;
end.