Cod sursa(job #123332)

Utilizator GavrilaVladGavrila Vlad GavrilaVlad Data 15 ianuarie 2008 16:56:30
Problema Tije Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var n,i,j,k: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
   for k:=1 to i do
   writeln(f,j,' ',j+1);
   for k:=1 to i do
   writeln(f,n+1,' ',1);
   end;
   close(f);
end.