Составить алгоритм вывода суммы вещественных чисел, до тех пор, пока сумма не превысит 999.

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

begin
  Write('Укажите длины массивов А и В: ');
  var (n1,n2):=ReadInteger2;
  var a:=ArrRandom(n1,-5,5); Write('A: '); a.Println;
  var b:=ArrRandom(n2,-5,5); Write('B: '); b.Println;
  (n1,n2):=(a.Where(x->x=0).Count,b.Where(x->x=0).Count);
  var c:array of integer;
  if n1<=n2 then c:=a.Concat(b).ToArray
  else c:=b.Concat(a).ToArray;
  Write('C: '); c.Println
end.

Пример
Укажите длины массивов А и В: 10 8
A: 0 4 4 1 4 0 -2 0 5 -3
B: 0 -3 5 4 -1 -2 5 1
C: 0 -3 5 4 -1 -2 5 1 0 4 4 1 4 0 -2 0 5 -3

Ищем в именах файлов закономерности, чтобы выделить пять из них.
1. Есть ровно пять файлов, начинающихся символом "p". В расширении имени (после точки) они имеют от одного до  трех символов.
Регулярное выражение будет иметь вид p[a-z]*.[a-z]*
2. Есть ровно пять файлов, имена которых завершаются символом "r". В расширении имени (после точки) они имеют от двух до  трех символов.
Регулярное выражение будет иметь вид [a-z]*r.[a-z]*

Ищем среди ответов похожий.
p+[a-z]*.[a-z]* - в принципе, то же, знак + тут необязателен, но и не мешает.
[a-z]*r+.[a-z]{3} - все портит это {3}, требующее ровно 3 повторения, а у нас от 2 до 3.

ответ:
p+[a-z]*.[a-z]*