Combinações 2x2

program COMB2;
{ TURBO PASCAL SOURCE
  DELPHI SOURCE
  Calculo de combinacoes de MAX elementos 2x2
  Joao Paulo Schwarz Schuler}
{FPC Source Code}

{X+}
const MAX = 5; { experimente outros valores}

var X,Y:integer;
begin
for X:=1 to MAX do
    for Y:=succ(X) {X+1} to MAX
        do writeln('(',X,',',Y,')');
end.