uses crt;
Type
 mas = array [1..6 , 1..6] of integer;
var
 B:mas{ двумер.массив};
 A:array[1..36] of integer;{одномер.массив}
 i,j,k:integer;{индексы массивов}
begin
 clrscr;
 randomize;
 for i:=1 to 6 do
  begin
   for j:=1 to 6 do
    begin
     B[i,j]:=25-random(50);
     write(B[i,j]:5);
    end;
   writeln;
  end;
 writeln;
 k:=0;
 for i:=1 to 6 do
  for j:=1 to 6 do
   if B[i,j]<5 then
    begin
     k:=k+1;
     A[k]:=B[i,j];
     write(A[k]:5);
    end;
 readln;
end.