for i:=1 to N do
  for j:=1 to M do
    C[i,j]:=A[i,j]+B[i,j];

(a+b) mod 2

for i:=1 to N do
  for j:=1 to N do
    for k:=1 to M do
       C[i,j]:=C[i,j]+A[i,k]*B[k,j];

function IntToBin(A: integer): string; {возвращает строку с бинарным представлением числа А}
var       i: byte;
    Temp: string;
begin
 Temp:='';
 while(A>0) do
   begin
    if (A mod 2)=1 then Temp:='1'+Temp
    else Temp:='0'+Temp;
    A:=A div 2
   end;
 IntToBin:=Temp
end;

function Mod2bezPerenosa(A,B: String): string;

 procedure AligningStrings(var C: string; var D: string); {уравниваем длину строк}
  var  i: byte;
     Max: byte;
  begin
    Max:=Length(C)-Length(D);
    if Max>=0 then
       for i:=1 to Max do D:='0'+D
    else
       for i:=1 to ABS(Max) do C:='0'+C
  end;

var     i: byte;
      Res: string;
begin
  Res:='';
  AligningStrings(A,B);
  for i:=1 to length(A) do
    if A[i]=B[i] then Res[i]:=0 else Res[i]:=1;
  Mod2bezPerenosa:=Res
end;