Arranjos 2x2 com Repetição

program ARR2R;
{ TURBO PASCAL SOURCE
  DELPHI SOURCE
  Calculo de arranjos de MAX elementos 2x2 com repeticao
  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
        writeln('(',X,',',Y,')');
end.