Дана матрица... Опции

[ned11]

Народ поможите пожалуйста решить задачку.Горю пипец завтра зачет нужно срочно сделать.
А задача такая:Дана матрица n*n.Вычислить поизведение всех элементов матрицы стоящих в нечетных столбцах и найти сумму элементов главной диагонали

[klem4]

Код

function product(mas:main):longint;
var i,j:integer; buf:longint;
begin
buf:=0; { <----------------------------------------------------------------------------------}
for i:=1 to n do
    for j:=1 to n do
        if (j mod 2)<>0 then
           buf:=buf*mas[i,j];
product:=buf;

function product(mas:main):longint;
var i,j:integer; buf:longint;
begin
buf:=1; { <---------------------------------------------------------------------}
j := 1;
while (j <= n) do begin
  for i := 1 to n do buf:=buf*mas[i,j];
  inc(j, 2);
end;
product:=buf;

ПРОВЕРЯЙТЕ программы прежде чем их выкладывать. !!!