Вычислить произведение элементов каждого столбца матрицы размерности n*n, находящаяся в строках

[ZmeI]

Вычислить произведение элементов каждого столбца матрицы размерности n*n, находящаяся в строка, номера которых кратны 2. Использовать процедуру вычисления произведения.
Пожалуйста напишите решение полностью. и блог схему выручайте!!!!!И результат который выдает паскаль тоже напишите пожалуйста.если сможете.ПОМОГИТЕ!!!ПОМОГИТЕ!!!У меня завтра зачет!!!

[puporev]

Держи код и блок-схему. Програсса работает, за блок-схему сильно не ручаюсь.Что тебе выдаст программа, написать не могу, т.к. там заложены случайные числа в диапазоне от 1 до 10. Числа маленькие, арифметику сам проверишь, работает правильно.

Program proizv;
uses crt;
type
   Tmatr=array[1..20,1..20] of integer;
var n,i,j,pr:integer;a:Tmatr;
procedure Prz(a:Tmatr;n:integer;var pr:integer);
begin
for j:=1 to n do
  begin
  pr:=1;
   for i:=1 to n do
     begin
       if i mod 2=0 then pr:=pr*a[i,j];
     end;
   writeln('Proizv v stb',j,'=',pr);
   end;
end;
begin
clrscr;
write('n=');readln(n);
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(10)+1;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
Prz(a,n,pr);
readln;
end.

[ZmeI]

Большущее, просто огромнейшее спасибо выручил!!!!!!!!!!!!!!!!!!!!!!!Спаси бо!!!!!!!!!!