Cod sursa(job #117218)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 20 decembrie 2007 22:42:22
Problema Tije Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var i,j,n,k:longint;
    f,g:text;
    h1,h2,m1,m2,s1,s2,mm1,mm2:word;
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 downto 1 do
   for k:=1 to i do
    writeln(g,j,' ',j+1);
  for k:=1 to i do
   writeln(g,n+1,' ',1);
 end;
 close(f); close(g);
end.