Из столбцов справа, подберите правильную последовательность команд для запуска программ, указанных в первом столбце.

Program pos;
var
    n, a, b, c, s, d: integer;
begin
    write('n = ');
    readln(n);
    if n < 1000 then
    begin
        a := n div 100;
        b := n mod 100 div 10;
        c := n mod 10;
        write('В числе ');
        if a = 0 then
            if b = 0 then
            begin
                d := 1;
                writeln('1 цифра');
            end
            else
            begin
                d := 2;
                writeln('2 цифры');
            end
        else
        begin
            d := 3;
            writeln('3 цифры');
        end;
        s := a + b + c;
        writeln('Сумма цифр: ', s);
        if n mod 2 = 0 then
            writeln('Число чётное')
        else
            writeln('Число нечётное');
        if d = 1 then
            writeln(c)
        else
            if d = 2 then
                writeln(c, b)
            else
                writeln(c, b, a);
        end
    else
        writeln('Число > 1000!');
end.

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

procedure MyArray(n:integer;var a:array of integer);
begin
  a:=ArrFill(n,0); // заполняем массив нулями
  Randomize; // инициализируем датчик случайных чисел
  // в случайный элемент заносим слчайное значение
  a[Random(0,n-1)]:=Random(1,99)
end;

begin
  var n:=ReadInteger('n='); // читаем с клавиатуры размер массива
  var mas:array of integer;
  MyArray(n,mas); // вызываем процедуру
  mas.Println // выводим сформированный массив
end.

Пример
n= 21
0 0 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0