Pagini recente » Cod sursa (job #1441940) | Cod sursa (job #1075856) | Cod sursa (job #201001) | Profil usureluflorian | Cod sursa (job #215513)
Cod sursa(job #215513)
program tije;
var n,i,j,k:longint;
begin
assign(input,'tije.in'); reset(input);
assign(output,'tije.out'); rewrite(output);
readln(n);
for i:= n downto 2 do
begin
for j:= n-1 downto 1 do
writeln(i,' ',n+1);
for j:= n-i+1 downto 1 do
writeln(i-1,' ',i);
for j:= n-2 downto 1 do
begin
for k:= n-i downto 1 do
writeln(j,' ',j+1);
writeln(n+1,' ',j);
writeln(j,' ',i);
end;
writeln(n+1,' ',1);
end;
close(input);
close(output);
end.