const
 n1=5;
 m1=4;
 n2=3;
 m2=7;
var
 a:array[1..n1,1..m1] of Integer;
 b:array[1..n2,1..m2] of Integer;
 x:array[1..n1+n2,1..m1+m2] of Integer;
 i,j:integer;

Begin
 for i:=1 to n1+n2 do
  for j:=1 to m1+m2 do
   x[i,j]:=0;

 for i:=1 to n1 do
  for j:=1 to m1 do
   begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
    x[i,j+m2]:=a[i,j];
   end;
 writeln;

 for i:=1 to n2 do
  for j:=1 to m2 do
   begin
    write('b[',i,',',j,']= ');
    readln(b[i,j]);
    x[i+n1,j]:=b[i,j];
   end;
 writeln;

 writeln('Matrix a:');
 for i:=1 to n1 do
  begin
   for j:=1 to m1 do write(a[i,j]:4);
   writeln;
  end;
 writeln;

 writeln('Matrix b:');
 for i:=1 to n2 do
  begin
   for j:=1 to m2 do write(b[i,j]:4);
   writeln;
  end;
 writeln;

 writeln('Matrix x:');
 for i:=1 to n1+n2 do
  begin
   for j:=1 to m1+m2 do write(x[i,j]:4);
   writeln;
  end;

 readln;
End.