Cod sursa(job #123333)
Utilizator | Data | 15 ianuarie 2008 16:59:26 | |
---|---|---|---|
Problema | Tije | Scor | 85 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
var n,i,j,k,a:integer;
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:=n downto 1 do
begin
a:=j+1;
for k:=1 to i do
writeln(f,j,' ',a);
end;
a:=n+1;
for k:=1 to i do
writeln(f,a,' ',1);
end;
close(f);
end.