program IncMassive; type setArray=array[1..10,1..10] of byte; var a,b:setarray; i,j:integer; n:integer; procedure increm(i,j:integer;n:integer; var a:setarray); begin if a[i,j]=0 then begin if (i<=n) and (j<=n) then begin increm(i+1,j,n,a); increm(i,j+1,n,a); end; end else if a[i+1,j]=0 then begin if (i<=n) and (j<=n) then increm(i+1,j,n,a) ; end else begin a[i+1,j]:=a[i,j]+1; if (i