Question

Задача: Опишите:

тип массив 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
Пояснение:

Отсутствует.