[Pascal] Задача с двумерными массивами

[MaximV]

В матрице A[5,5] для каждого столбца подсчитать произведение элементов кратных 3 или 5.

"ВОТ НАРАБОТКИ"

program uravnenie;
uses crt;
var a:array [1..50,1..50] of integer;
        n1,n2,i,j:integer;
          s:real;
begin clrscr;
writeln ('vvedite kol strok');
readln(n1);
writeln('vvedite kol stolbchov');
readln(n2);
for i:=1 to n1 do
for j:=1 to n2 do
  begin
  writeln('a[',i,j,']');
  read(a[i,j]);
clrscr;
  end;

  for i:=1 to n1 do
  begin
  for j:=1 to n2 do
           writeln(a[i,j]);
           writeln;
           end;

           for j:=1 to n2 do
           begin
           s:=1;
           for i:=1 to n1 do
           begin
       if (a[5,5] mod 3=0 )or(a[5,5] mod 3=0) then s:=s*a[i,j];
                end;
  writeln('a[',i,j,']');
  clrscr;
  writeln;
  writeln('proizvedenie=',s:5:3);
  end;
  readkey;
  end.

[Никита крутой]

uses crt;
var a:array[1..50,1..50] of integer;n,i,j,p:integer;
begin
       clrscr;n:=5;
       for i:=1 to n do
       for j:=1 to n do
       read(a[i,j]);
       for j:=1 to n do
       begin
             p:=1;
             for i:=1 to n do
             if (a[i,j] mod 3=0)and(a[i,j]mod 5=0) then p:=p*a[i,j];
             write(p,' ');
       end;
       readkey;
end.

Работает 100% Сам проверил... Протесте... должно