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

[ned11]

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

[volvo]

function sum(mas:main):longint;
var i:integer; buf:longint;
begin
  buf:=0;
  for i:=1 to n do
    inc(buf,mas[i,i]);
  sum:=buf;
end;