Cod sursa(job #118733)

Utilizator bogdan88Bogdan Popescu bogdan88 Data 27 decembrie 2007 18:39:10
Problema Tije Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
var fi,fo:text;
    n,i:integer;
procedure rotire(ct:integer);
var j,i,aux:integer;
begin
  for i:=n+1 downto 2 do
    for j:=1 to ct do
       writeln(fo,i-1,' ',i);
  for j:=1 to ct do
    writeln(fo,n+1,' ',1);
end;
begin
  assign(fi,'tije.in'); reset(fi);
  assign(fo,'tije.out'); rewrite(fo);
  readln(fi,n);
  for i:=n-1 downto 1 do
    rotire(i);
  close(fi);
  close(fo);
end.