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

begin
  var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1);
  a.Println;
end.


N= 10
x= 13
13 14 15 16 17 18 19 20 21 22


begin
  var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1).Reverse;
  a.Println;
end.


N= 10
x= 13
22 21 20 19 18 17 16 15 14 13


begin
  var b:=ArrGen(ReadInteger('N='),1,1,(x,y)->x+y); b.Println
end.


N= 10
1 1 2 3 5 8 13 21 34 55