// PascalABC.NET 3.3, сборка 1547 от 07.10.2017// Внимание! Если программа не работает, обновите версию!begin; var (n,a,d):=ReadInteger3('Введите через пробел n,a,d'); var b:=ArrGen(n,i->a*Power(d,i)); b.Printlnend.
ПримерВведите через пробел n,a,d 10 3 43 12 48 192 768 3072 12288 49152 196608 786432