program mas;
var n, i, j: integer;
begin
readln(n);
for i:=1 to (n-1) do
for j:= i+1 to n do
write('(', i,',', j, ')');
end;
end.
program mas;
var n, i, j: integer;
begin
readln(n);
for i:=1 to (n-1) do
begin
for j:= i+1 to n do
begin
write('(', i,',', j, ')');
end;
end;
end.