Cod sursa(job #139885)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 20 februarie 2008 21:02:55
Problema Tije Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var n,i,j,k:integer;
f,g:text;
begin
assign(f,'tije.in');reset(f);
assign(g,'tije.out');rewrite(g);
read(f,n);
writeln(g,n,' ',n+1);
for i:=n-1 downto 1 do begin
for j:=1 to i do
writeln(g,'1',' ',n+1);
for k:=1 to n do
    for j:=1 to i do
writeln(g,j+1,' ',j);
end;
close(f);
close(g);
end.