Здравствуйте юные гении Задания выполнять в программе ACCESS

PascalABC.NET 3.7:

###RS.AdjacentGroup.SelectMany(x → x.Len >= 3 ? x.Len + x[0] : x.Str).Pr

Пояснение:

RS - ReadString: Возвращает значение типа string, введенное с клавиатуры.

AdjacentGroup: Группирует одинаковые подряд идущие элементы, получая последовательность массивов.

SelectMany: Проецирует каждый элемент последовательности в новую последовательность и объединяет результирующие последовательности в одну последовательность.

.Len - .Length: Длина массива.

.Str - .JoinToString: Преобразует последовательность символов в строку, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

.Pr - .Print: Выводит последовательность символов на экран, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

Пример работы:

//В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, 
//сумма модулей которых равна модулю заданного числа М.
function CountPair(N, m: integer; a: array of integer): integer;
begin
result := 0;
Assert(N >= 0);
for var i := 0 to a.Length - 2 do
begin
if abs(a[i]) + abs(a[i+1]) = abs(m) then
result += 1;
end;
end;

begin
var n := ReadInteger;
var m := ReadInteger;
var a: array of integer;
Setlength(a, n);
for var j := 0 to a.Length - 1 do
begin
a[j] := ReadInteger;
end;
Write('Количество пар = ', CountPair(n, m, a));
end.