program mewmew_ma_faka;

uses crt;
var
  A: array[1..2,1..2] of integer;
  B: array[1..2,1..2] of integer;
  i, j: integer;
  f: file of integer;


  begin

       {-----------------------------------------------------------------------}
       for i:= 1 to 2
       do  begin
           for j:= 1 to 2
           do  begin
                 write('Enter an array element A[');
                 write(i , ' , ' , j);
                 write('] = ');
                 readln(A[i,j])
           end
       end;
       {-----------------------------------------------------------------------}
       for i:= 1 to 2
       do  begin
           for j:= 1 to 2
           do  begin
                 write('Enter an array element B[');
                 write(i , ' , ' , j);
                 write('] = ');
                 readln(B[i,j])
           end
       end;
       {-----------------------------------------------------------------------}
       Assign(f,'A.txt');
       Rewrite(f);
       for i:= 1 to 2
       do  begin
           for j:= 1 to 2
           do  begin
           write (f, A[i,j]);
           end
       end;


       Assign(f,'B.txt');
       Rewrite(f);
       for i:= 1 to 2
       do  begin
           for j:= 1 to 2
           do  begin
           write (f, B[i,j]);
           end
       end;
       {-----------------------------------------------------------------------}
          Close(f);
       {-----------------------------------------------------------------------}



       readln;


end.