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

function PartitionPoints(a, b: real; n: integer): sequence of real;
        Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей
function Range(a, b: integer): sequence of integer;
        Возвращает последовательность целых от a до b
function Range(c1, c2: char): sequence of char;
        Возвращает последовательность символов от c1 до c2
function Range(a, b, step: integer): sequence of integer;
        Возвращает последовательность целых от a до b с шагом step
function ReadSeqInteger(n: integer): sequence of integer;
        Возвращает последовательность из n целых, введенных с клавиатуры
function ReadSeqInteger(prompt: string; n: integer): sequence of integer;
        Выводит приглашение к вводу и возвращает последовательность из n целых, введенных с клавиатуры
function ReadSeqIntegerWhile(cond: integer->boolean): sequence of integer;
        Возвращает последовательность целых, вводимых с клавиатуры пока выполняется определенное условие
function ReadSeqIntegerWhile(prompt: string; cond: integer->boolean): sequence of integer;
        Выводит приглашение к вводу и возвращает последовательность целых, вводимых с клавиатуры пока выполняется определенное условие
function ReadSeqReal(n: integer): sequence of real;
        Возвращает последовательность из n вещественных, введенных с клавиатуры
function ReadSeqReal(prompt: string; n: integer): sequence of real;
        Выводит приглашение к вводу и возвращает последовательность из n вещественных, введенных с клавиатуры
function ReadSeqRealWhile(cond: real->boolean): sequence of real;
        Возвращает последовательность вещественных, вводимых с клавиатуры пока выполняется определенное условие
function ReadSeqRealWhile(prompt: string; cond: real->boolean): sequence of real;
        Выводит приглашение к вводу и возвращает последовательность вещественных, вводимых с клавиатуры пока выполняется определенное условие
function ReadSeqString(n: integer): sequence of string;
        Возвращает последовательность из n строк, введенных с клавиатуры
function ReadSeqString(prompt: string; n: integer): sequence of string;
        Выводит приглашение к вводу и возвращает последовательность из n строк, введенных с клавиатуры
function ReadSeqStringWhile(cond: string->boolean): sequence of string;
        Возвращает последовательность строк, вводимых с клавиатуры пока выполняется определенное условие
function ReadSeqStringWhile(prompt: string; cond: string->boolean): sequence of string;
        Выводит приглашение к вводу и возвращает последовательность строк, вводимых с клавиатуры пока выполняется определенное условие
function Seq<T>(params a: array of T): sequence of T;
        Возвращает последовательность указанных элементов
function SeqFill<T>(count: integer; x: T): sequence of T;
        Возвращает последовательность из count элементов x
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 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 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 продолжения последовательности