Program PascalGuru;
uses crt;
type massiv=array[1..50,1..50] of integer;
vector=array[1..50] of integer;

var A:massiv; {переменная массива}
B:vector; {переменная массива}
i,j,m,n:integer; {переменные для циклов}
{------------------------------------------------------------}
function simple(x:integer):boolean; {процедура проверки числа на "простоту"}
label 1;
var i:longint;
result: boolean;
begin
if (x=1) or (x=0) then begin result:=false; goto 1; end;
for i:=2 to x div 2 do
if x mod i=0 then begin
result:=false; goto 1; end;
result:=true;

1:simple:=result;
end; {***конец процедуры проверки числа на "простоту"}
{------------------------------------------------------------}
procedure make_vector(A:massiv;m,n:integer;var B:vector);
var i,j,pr :integer;
begin
for j:=1 to m do
begin
pr:=1;
for i:=1 to n do
if simple(A[i,j]) then pr:=pr*A[i,j];
B[j]:=pr;
end;
end;
{------------------------------------------------------------}
begin
write('N= '); readln (n); {считываем размер массива}
write('M= '); readln (m); {считываем размер массива}

writeln ('Vvedite elementy massiva A: ');
for i:=1 to n do
for j:=1 to m do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем элементы массива}

clrscr;
write ('Vot vvedennyi vami massiv A: ');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:4,' '); end; {выводим массив на экран}

writeln;writeln;

make_vector(A,m,n,B);

writeln ('Vot vector B: ');
for j:=1 to m do write (B[j]:4,' ');

readln;
end.