Cod sursa(job #140049)
| Utilizator |  Diaconeasa Andrei AndreiD |
Data | 21 februarie 2008 09:09:15 |
|---|---|---|---|
| Problema | Tije | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var n,i,j,k:longint;
f,g:text;
begin
assign(f,'tije.in');reset(f);
assign(g,'tije.out');rewrite(g);
read(f,n);
for i:=n-1 downto 1 do begin
for j:=n+1 downto 2 do
for k:=1 to i do
writeln(g,j,' ',j+1);
for j:=1 to i do
writeln(g,n+1,' ','1');
end;
close(f);
close(g);
end.