Дана часть таблицы «Количество товара на складе».

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество элементов массива:');
  var x:=ReadReal('Введите значение Х для заполнения массива:');
  var a:=ArrFill(n,x); a.Println
end.

Пример
Количество элементов массива: 13
Введите значение Х для заполнения массива: 2.5
2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5

begin
  var n:=ReadInteger('Количество элементов массива:');
  var x:=ReadInteger('Введите начальное значение Х для заполнения массива:');
  var a:=ArrGen(n,i->i+x); a.Println
end.

Пример
Количество элементов массива: 15
Введите начальное значение Х для заполнения массива: 8
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Какое значение примет переменная х в результате выполнения следующих фрагментов программ? 
1) x:=0; for y:=1 to 9 do x:=x+y; 

y:=1    x = 1
y:=2    x = 3
y:=3    x = 6
y:=4    x = 10
y:=5    x = 15
y:=6    x = 21
y:=7    x = 28
y:=8    x = 36
y:=9    x = 45

x = 45

2) x:=1; for y:=1 to 5 do x:=x*y; 

y=1   x=1
y=2   x=2
y=3   x=6
y=4   x=24
y=5   x=120

x=120

3) x:=1; while x<>1 do begin x:=x+3; x:=x+1; end; 

x=1 (так как условие не используется)

4) x:=1; while x<100 do begin x:=x*2; end;

x=2       (2<100)
x=4       (4<100)
x=8       (8<100)
x=16     (16<100)
x=32     (32<100)
x=64     (64<100)
x=128   ( 128>100)

x=128 

Сколько раз выполниться тело цикла:
а) For i:=1 to 10 do x:=x+i;
10 раз (i=1   i=2   i=3   i=4   i=5   i=6   i=7   i=8   i=9   i=10)
б) For k:=2 to 22 do
If k mod 2=0 then s:=s+1;
11 раз (k=2   k=4   k=6   k=8   k=10   k=12   k=14   k=16   k=18   k=20   k=22)
(остальные k условию не соответствуют)