Cod sursa(job #159166)

Utilizator ghitza_2000Stefan Gheorghe ghitza_2000 Data 13 martie 2008 23:29:33
Problema Tije Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
 var n,i,j,k:int64;
 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.