var c:array[1..100,1..100] of integer;
a,b:array[1..100] of integer;
i,j,m,n,k,d:integer;
begin
writeln('введите кол-во строк в массиве'); readln(n);
writeln('введите кол-во cтолбцов в массиве'); readln(m);
for i:=1 to n do begin
for j:=1 to m do begin c[i,j]:=random(1000); write(c[i,j]:4);end;writeln;end;
writeln;
for i:=1 to n do
for j:=1 to m do
if (c[i,j] mod 2=0) and (c[i,j] mod 5=0) then begin inc(k); a[i]:=c[i,j]; end;
for i:=1 to k do write(a[i]:4);
writeln;
for i:=1 to n do
for j:=1 to m do
if (c[i,j] mod 2<>0) and (c[i,j] mod 3=0) then begin inc(d); b[i]:=c[i,j];end;
writeln;
for i:=1 to d do write(b[i]:4);
end.