Cod sursa(job #119896)
Utilizator | Data | 3 ianuarie 2008 16:50:29 | |
---|---|---|---|
Problema | Tije | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.35 kb |
var fi,fo:text;
n,i,k,j:integer;
begin
assign(fi,'tije.in'); reset(fi);
assign(fo,'tije.out'); rewrite(fo);
readln(fi,n);
for i:=n - 1 downto 1 do
begin
for k:=n downto 1 do
for j:=1 to i do
writeln(fo,k,' ',k + 1);
for j:=1 to i do
writeln(fo,n+1,' ',1);
end;
close(fi); close(fo);
end.