HELP

информатика

PascalABC.NET

Уровень A. а) Заполните все элементы массива значением X , введённым с клавиатуры.
б) Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры).

Уровень B. а) Заполните массив натуральными числами в обратном порядке, начиная со значения X, введённого с клавиатуры. Последний элемент должен быть равен X, предпоследний – X–1 и т.д.
б) Заполните массив степенями числа 2 (от 21 до 2N), так чтобы элемент с индексом i был равен 2i.

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)// А,a begin  ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;end.// А,бbegin  var x:=ReadInteger('x=');  var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;end.// B,a begin  var (x,n):=ReadInteger2('x,n=');  var a:=ArrGen(n,i->x-(n-1-i)); a.Println;end.// B,бbegin  ArrGen(ReadInteger('n='),i->2**(i+1)).Println;end.