ИНФОРМАТИКА 9 КЛАСС! МАССИВЫ, ПАСКАЛЬ. СРОООЧНО!!!!
делать задания 3-5!

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017// Внимание! Если программа не работает, обновите версию!№3begin  var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1);  a.Println;end.Пример:N= 10x= 1313 14 15 16 17 18 19 20 21 22№4begin  var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1).Reverse;  a.Println;end.ПримерN= 10x= 1322 21 20 19 18 17 16 15 14 13№5begin  var b:=ArrGen(ReadInteger('N='),1,1,(x,y)->x+y); b.Printlnend.ПримерN= 101 1 2 3 5 8 13 21 34 55