Параметры с использованием процедур

1)Описать процедуру Split 1(A, NA, B, NB, C, NC), формирующую по вещественному массиву A размера NA два вещественных массива B и C размера NB И NC соответственно; при этом массив B содержит все элементы массива A с нечетными порядковыми номерами (1, 3, ...), а массив C — все элементы массива A с четными номерами (2, 4, ...). Массивы B и C и числа NB И NC ЯВЛЯЮТСЯ ВЫХОДНЫМИ параметрами. Применить эту процедуру к данному массиву A размера NA И вывести размер и содержимое полученных массивов B и C.
2)Описать функцию PosSub(S0, S, K, N) целого типа, возвращающую номер позиции, начиная с которой в строке S содержится первое вхо¬ждение строки S0, причем анализируются только N символов строки S, начиная с ее K-го символа (таким образом, PosSub обеспечивает поиск в подстроке). Если K превосходит длину строки S, то возвращается 0, если длина строки меньше K + N, то анализируются все символы строки, начиная с ее K-го символа. Если в требуемой подстроке строки S вхожде¬ния S0 отсутствуют, то функция возвращает 0. Вывести значения функции PosSub для данных строк S0, S и каждой из трех пар положительных це¬лых чисел: {Къ N1), (K2, N2), (K3, N3).

0