Var
 i,j,k:Byte;
 A:Array[1..4,1..5] of Byte;
 C:Array[1..20] of Byte;
Begin
 Randomize;
 For i:=1 to 4 do
  begin
   For j:=1 to 5 do
    begin
     A[i,j]:=Random(100);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln;
 For i:=1 to 4 do
  For j:=1 to 5 do
   begin
    k:=(i-1)*4+j;
    C[k]:=A[i,j];
    Write(C[k]:4);
   end;
 Readln
End.