program Project1;

uses
  SysUtils;

var
  I: Integer;
  X: Integer;
  Y: Integer;
  Matrix: array[1..4, 1..4] of Integer;
begin
  Randomize;

  for I := 1 to 3 do
  begin
    for X := 1 to 4 do
      for Y := 1 to 4 do
        Matrix[X, Y] := Random(100) + 1;

    for X := 1 to 4 do
    begin
      for Y := 1 to 4 do
        Write(IntToStr(Matrix[X, Y]), ' ');
      WriteLn;
    end;
    WriteLn;
  end;
  ReadLn;
end.