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;
  c: integer;
  f: Text;



  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
           WriteLn(f, A[i,j])
           end
       end;

       reset (f);

       writeln ('Matrix A:');
       for i:= 1 to 2
       do  begin
           writeln;
           for j:= 1 to 2
               do  begin
                   read (f, c);
                   write (' ',c);
               end

           end;
             writeln;
       Close(f);

       Assign(f,'B.txt');
       Rewrite(f);
       for i:= 1 to 2
       do  begin
           for j:= 1 to 2
           do  begin
           WriteLn(f, B[i,j])
           end
       end;
       reset (f);

       writeln ('Matrix B:');
       for i:= 1 to 2
       do  begin
           writeln;
           for j:= 1 to 2
               do  begin
                   read (f, c);
                   write (' ',c);
               end

           end;
             writeln;
       Close(f);
       {-----------------------------------------------------------------------}
       Assign(f,'C.txt');
       Rewrite(f);

       for i:=1 to 2
       do begin
      for j:=1 to 2
              do begin
        a[i,j] := (a[i,j]+b[i,j])*2 - 1; {ИСПРАВИТЬ!}
                WriteLn(f, A[i,j])
              end
           end;


       {-----------------------------------------------------------------------}

       reset (f);

       writeln ('Matrix C:');
       for i:= 1 to 2
       do  begin
           writeln;
           for j:= 1 to 2
               do  begin
                   read (f, c);
                   write (' ',c);
               end

           end;
             writeln;
       readln;
       Close(f);


end.