Cod sursa(job #235654)

Utilizator DanielGGlodeanu Ioan Daniel DanielG Data 24 decembrie 2008 22:50:31
Problema Tije Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var n,i,j,k:longint;
f:text;
begin
assign(f,'tije.in');reset(f);
readln(f,n);
close(f);
i:=1;
assign(f,'tije.out');rewrite(f);
for i:=1 to n do
       begin
      for j:=1 to n-1 do writeln(f,i,' ',n+1);
          for k:=1 to n do
        if k<>i then writeln(f,n+1,' ',k);
        end;
close(f);
end.