Cod sursa(job #139904)
Utilizator | Data | 20 februarie 2008 21:18:30 | |
---|---|---|---|
Problema | Tije | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.27 kb |
var n,i,j,k:byte;
f:text;
begin
assign(f,'tije.in');reset(f);
read(f,n);
close(f);
assign(f,'tije.out');rewrite(f);
for i:=n-1 downto 1 do begin
for j:=1 to i do
writeln(f,'1',' ',n+1);
for k:=1 to n do
for j:=1 to i do
writeln(f,k+1,' ',k);
end;
close(f);
end.