Подпрограммы для генерации последовательностей

function Range(a,b: integer): sequence of integer;
        Возвращает последовательность целых от a до b
function Range(c1,c2: char): sequence of char;
        Возвращает последовательность символов от c1 до c2
function Range(a,b: real; n: integer): sequence of real;
        Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей
function Range(a,b,step: integer): sequence of integer;
        Возвращает последовательность целых от a до b с шагом step
function Seq<T>(params a: array of T): sequence of T;
        Возвращает последовательность указанных элементов
function SeqRandom(n: integer := 10; a: integer := 0; b: integer := 100): sequence of integer;
        Возвращает последовательность из n случайных целых элементов
function SeqRandomInteger(n: integer := 10; a: integer := 0; b: integer := 100): sequence of integer;
        Возвращает последовательность из n случайных целых элементов
function SeqRandomReal(n: integer := 10; a: real := 0; b: real := 10): sequence of real;
        Возвращает последовательность из n случайных вещественных элементов
function SeqGen<T>(count: integer; f: integer -> T): sequence of T;
        Возвращает последовательность из count элементов, заполненных значениями f(i)
function SeqGen<T>(count: integer; f: integer -> T; from: integer): sequence of T;
        Возвращает последовательность из count элементов, заполненных значениями f(i), начиная с i=from
function SeqGen<T>(count: integer; first: T; next: T -> T): sequence of T;
        Возвращает последовательность из count элементов, начинающуюся с first, с функцией next перехода от предыдущего к следующему
function SeqGen<T>(count: integer; first,second: T; next: (T,T) -> T): sequence of T;
        Возвращает последовательность из count элементов, начинающуюся с first и second,с функцией next перехода от двух предыдущих к следующему
function SeqWhile<T>(first: T; next: T -> T; pred: T -> boolean): sequence of T;
        Возвращает последовательность элементов с начальным значением first,функцией next перехода от предыдущего к следующему и условием pred продолжения последовательности
function SeqWhile<T>(first,second: T; next: (T,T) -> T; pred: T -> boolean): sequence of T;
        Возвращает последовательность элементов, начинающуюся с first и second,с функцией next перехода от двух предыдущих к следующему и условием pred продолжения последовательности
function SeqFill<T>(count: integer; x: T): sequence of T;
        Возвращает последовательность из count элементов x
function ReadSeqInteger(n: integer): sequence of integer;
        Возвращает последовательность из n целых, введенных с клавиатуры
function ReadSeqReal(n: integer): sequence of real;
        Возвращает последовательность из n вещественных, введенных с клавиатуры
function ReadSeqString(n: integer): sequence of string;
        Возвращает последовательность из n строк, введенных с клавиатуры
function ReadSeqInteger(const prompt: string; n: integer): sequence of integer;
        Выводит приглашение к вводу и возвращает последовательность из n целых, введенных с клавиатуры
function ReadSeqReal(const prompt: string; n: integer): sequence of real;
        Выводит приглашение к вводу и возвращает последовательность из n вещественных, введенных с клавиатуры
function ReadSeqString(const prompt: string; n: integer): sequence of string;
        Выводит приглашение к вводу и возвращает последовательность из n строк, введенных с клавиатуры