Дано целое число n (> 1), а также первый член a и знаменатель d прогрессии. сформировать и вывести массив размера n, содержащий n первых членов данной прогрессии: a, a·d, a·d2, a·d3, . .

// 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.println end. пример введите через пробел n,a,d 10 3 4 3 12 48 192 768 3072 12288 49152 196608 786432

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.