для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов

program TTT;
var
i, j : Integer;
m : array [1..3, 1..5] of Real;
p : array [1..3] of Real;
begin
for i:=1 to 3 do
for j:=1 to 5 do
begin
write ('M[',i,',',j,']=');
readln (M[i,j]);
end;
for i:=1 to 3 do
p[i] := 1;
for j:=1 to 5 do
begin
if m[i,j] <> 0 then
p[i] := p[i] * m[i,j]
else continue;
end;
writeln (p[1],',',p[2],',',p[3],'.');
end.

program TTT;
var
i, j : Integer;
m : array [1..3, 1..5] of Real;
p : array [1..3] of Real;{массив здесь не нужен, хотя можно и с ним, но нужно 5 элеиентов} 
begin
for i:=1 to 3 do
for j:=1 to 5 do
begin
write ('M[',i,',',j,']=');
readln (M[i,j]);
end;
for i:=1 to 3 do//это же строки, а нам надо по столбцам
p[i] := 1;
for j:=1 to 5 do
begin{не нужно}
if m[i,j] <> 0 then
p[i] := p[i] * m[i,j]
else continue;{не нужно}
end;{не нужно}
writeln (p[1],',',p[2],',',p[3],'.');{вывести надо 5 элементов и вывод делается так
for i:=1 to 5 do
write(p[i]:6:2);}
end.

program TTT;
var
i, j : Integer;
m : array [1..3, 1..5] of Real;
p : array [1..3] of Real;
begin
for i:=1 to 3 do
for j:=1 to 5 do
begin
write ('M[',i,',',j,']=');
readln (M[i,j]);
end;
for i:=1 to 3 do
begin
p[i] := 1;
for j:=1 to 5 do
begin
if m[i,j] <> 0 then
p[i] := p[i] * m[i,j];
end;
end;
writeln (p[1],',',p[2],',',p[3],'.');
end.

program TTT;
uses crt;{этот модуль, если компьютер с ним может работать, надо подключать}
var
i, j : Integer;
m : array [1..3, 1..5] of Real;
p : Real;{переменная - произведение}
begin
clrscr;{очистим экран перед началом работы}
writeln('Vvedite 15 elementov matricy:');{нужно делать поясняющие надписи, иначе пользователь, открыв программу и видя пустой экран, не знает что ему делать}
for i:=1 to 3 do
for j:=1 to 5 do
  begin
    write ('M[',i,',',j,']=');
    readln (M[i,j]);
  end;
clrscr;{очистим экран от ввода}
writeln('Matrica:');{выведем матрицу на экран в виде таблицы}
for i:=1 to 3 do
  begin
   for j:=1 to 5 do
   write(m[i,j]:6:2);{6 позиций под число, 2 знака после запятой}
   writeln;
  end;
for j:=1 to 5 do{идем по столбцам}
  begin
    p := 1;{сначала произведение=1}
    for i:=1 to 3 do{по столбцу вниз}
    if m[i,j] <> 0 then{если не ноль}
    p := p * m[i,j];{умножаем}
    writeln ('Proizvedenie v stolbce',j,'=',p:0:2);{выводим произведение по каждому столбцу}
  end;
readln{читаем результат сразу на экране, не надо Ctrl+F5}
end.