Как найти произведение элементов 4 столбца?Турбо паскаль

program sbb;

uses crt;

var

i,j,s:integer;

a:array[1..5,1..10] of integer;

begin

for i:=1 to 5 do

begin

for j:=1 to 10 do

begin

random(50);

a[i,j]:=random(50);

write( );

write(a[i,j]);

end;

writeln

end;

s:=1;
for i:=1 to 5 do
 s:=s*a[i,4];

{в s произведение 4 столбца}

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.