Как создать олимпиеские кольца в скретч фастом ​

Const
   N = 15;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
WriteLn('P = ',P);
End.

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
    if A[i] mod 5 = 0 then Write(' ',A[i])
End.

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(31);
    Write(' ',A[i]);
    if i mod 2 <> 0 then S:=S+A[i]
    End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.

Файлы:
1. primera.dat
2. primera.doc
3. merchant.doc
4. k-mer.doc
5. omerta.doc
6. Temerlan.docx

1) *mer?.doc - отбирает файлы с расширением .doc и именем (я буду называть именем всё без расширения), оканчивающимся на mer и еще какую-то букву.
Будет отобрано только файл 2.
2) ?*mer?.doc - тут по сравнению с предыдущим добавляется условие, что перед mer должно быть что-то еще. Если в случае был 1 файл, то и в этом не больше одного.
3) *mer*?.doc - файлы с именем, содержащим mer, но не оканчивающимся на него и расширением .doc. Отберутся файлы 2, 3, 5 - три файла.
4) *?mer*?.doc - тут mer должно еще и не быть в начале, по сравнению с предыдущим. Будут отобраны файлы 2 и 5.

ответ. 3.