Модули для PascalABC

uses Tuples, Writer;
var
  A: Tuple3;
  B, C, D: IntTuple2;
  
begin
  B := IntTpl2(1, 2);
  C := IntTpl2(3, 4);
  D := IntTpl2(5, 6);
  A := Tpl3(B, C, D);
  Println(A);
  Println(B[0]);
end.

uses Writer, Reader, Transformations;
begin
  Println(ToWords(ReadlnString('String:'))); // Разбиение прочитанной строки на слова.
  Println(ToIntegers(ReadlnString('Numbers:'))); // Разбиение прочитанной строки на целые числа.
end.

uses Tuples, Writer, Containers;
var
  A1, A2: StringArray;
  A: Tuple2;
 
begin
  A1 := StringArray.Create();
  A1.Add('1');
  A1.Add('2');
  A2 := StringArray.Create();
  A2.Add('3');
  A2.Add('4');
  A := Tpl2(A1, A2);
  Println(A);
end.

uses Tuples, Writer, Reader, Transformations;
begin
  Println(ReadlnInt('Number:'));
  Println(ReadlnComplex('Complex:'));
  Println(ReadlnRealTuple5('Tuple:')); // Чтение кортежа из 5 вещественных чисел.
  Println(ReadArrInt(5, 'Array:'));
  Println(ReadIntSeqWhile('Sequence:', IsPositive));
end.

uses Types, Writer, Reader, Transformations, Containers;
var
  A: IntArray;
 
function Double(x: int): int;
begin
  Result := x * 2;
end;
 
function SumWithIndex(index, x: int): int;
begin
  Result := x + index;
end;
 
begin
  A := ReadIntSeqWhile('Sequence:', IsPositive); // Чтение чисел в массив до первого неположительного.
  Println(A);
  Println(Select(A, Double)); // Создание нового массива с удвоенными элементами.
  Println(Select(A, SumWithIndex));
  Println(All(A, IsPositive)); // Проверка массива на условие "все элементы положительные".
  Println(Where(A, Odd)); // Создание массива, который включает только нечетные элементы из A.
end.

uses Writer, Reader, Arrays;
begin
  Println(CreateRandomIntArray(10, 10, 20)); // Создание массива из 10 элементов с значениями из диапазона [10, 20].
end.