Задача: Опишите: тип массив TStroka как массив целых чисел из MAX_NUM элементов (задано константой, описывать не надо) элементов с индексами от 1 до MAX_NUM; тип массив TTablica как массив из строк целых чисел (TStroka) из MAX_NUM элементов (задано константой, описывать не надо) элементов с индексами от 1 до MAX_NUM; процедуру procedure Zap(var m: TTablica), которая заполняет массив, заданным образом; процедуру procedure Vivod(m: TTablica), которая выведет элементы массива в виде таблицы через один пробел. Формат ввода: Описан в задаче. Формат вывода: Описан в задаче. Пример входных данных Описан в задаче. Пример выходных данных 0 0 0 1 0 0 1 1 0 1 1 1 1 1 1 1 Пояснение: Отсутствует.