Процедуры и функции

Ввести двумерный массив.Найти сумму элементов с нечетными индексами.Получить одномерный массив включающий все не нулевые элементы матрицы.Найти модуль полученного вектора.S:=Summa (a,na,ma) ; vivod (a,na,ma,'A') ; writeln; writeln ('SUMMA= ',S) ; end.M:=Modul (c,nc) ; vivod (c,nc,'C') ; writeln; writeln ('MODUL= ',M) ; end.=1 to Nx.Тестовый пример и результат.Begin vvod (a,na,ma,'A').J:=1 to Mx.