Program VelkyPodvodMalyProgram;
const MaxM=100; MaxN=100;
var s,i,ii,m,n:integer;
    Mesto:array[0..MaxM+1,0..MaxN+1] of integer;
 begin
        {nacteni matice m*n do Mesto dat ... }
  for i:=1 to n do   for ii:=1 to m do
     Mesto[i,ii]:=(Mesto[i,ii] mod 2) xor ((i+ii)mod 2);
  S:=VyhledejNejJednickovouMatici(Mesto);      {viz 9-1-3}
  for i:=1 to n do   for ii:=1 to m do
     Mesto[i,ii]:=not(Mesto[i,ii]);
  S:=VyhledejNejJednickovouMatici(Mesto);      {viz 9-1-3}
  write('Obsah je:',S);
 end.