Arranjos 2x2

program ARR2;
{ TURBO PASCAL SOURCE
  DELPHI SOURCE
  Calculo de arranjos de MAX elementos 2x2
  Joao Paulo Schwarz Schuler}

{FPC Source Code}

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

var X,Y:integer;
begin
for X:=1 to MAX do
    for Y:=1 to MAX do
        if X<>Y
           then writeln('(',X,',',Y,')');
end.