program laba2_3;
uses
  System.SysUtils;
function Enter(Max, Min : Integer): Integer;
var
   Temp : Integer;
   Iscorrect : Boolean;
begin
   repeat
      try
         Read(Temp);
         if (Temp > Max) or (Temp < Min) then
         begin
            WriteLn('This is a mistake. Please enter again!');
            IsCorrect := False;
         end
         else
            IsCorrect := True;
      except
         WriteLn('This is a mistake. Please enter again!');
         IsCorrect:=False;
      end;
   until(IsCorrect) ;
   result := Temp;
end;
var
   Matrix1, Matrix2 : array [1..10,1..10] of Integer;
   I, J, N : Integer;
   Flag : Byte;
begin
   WriteLn('Enter the number of rows and columns in the matrix (N > 1 and N < 11)');
   N := Enter(10,2);
   N := N - 1;
   WriteLn('Enter the elements of first matrix a');
   for I := 0 to N do
      for J := 0 to N do
      begin
         WriteLn('Enter a[', (I + 1), ',', (J + 1), ']');
         Matrix1[I,J] := Enter(200000,-200000);
      end;
   WriteLn('Enter the elements of first matrix b');
   for I := 0 to N do
      for J := 0 to N do
      begin
         WriteLn('Enter b[', (I + 1), ',', (J + 1), ']');
         Matrix2[I,J] := Enter(200000,-200000);
      end;
   WriteLn('Enter 1 for sum or 2 for subtract matrices');
   Flag := Enter(2,1);
   if Flag = 1 then
   begin
      for I := 0 to N do
         for J := 0 to N do
            Matrix1[I,J] := Matrix1[I,J] + Matrix2[I,J];
   end
   else
   begin
      for I := 0 to N do
         for J := 0 to N do
            Matrix1[I,J] := Matrix1[I,J] - Matrix2[I,J];
   end;
   WriteLn('New matrix');
   for I := 0 to N do
   begin
      Writeln;
      for J := 0 to N do
         Write(Matrix1[I,J], ' ');
   end;
   ReadLn;
   ReadLn;
end.