[icWasya]

Вот, написал на коленке за пять минут - не проверял

Код:

var
  Sum:Integer;
  X,Y:Integer;

for Sum := 0 to (N+M) do begin
  for Y:=0 to Sum do begin
     X:= Sum-Y;

    if X<0 then Continue;
    if Y<0 then Continue;
    if X>=N then Continue;
    if Y>=M then Continue;

   DoSomeg(X,Y);


  end;
end;