Cod sursa(job #139750)
Utilizator | Diaconeasa Andrei AndreiD | Data | 20 februarie 2008 16:53:12 |
---|---|---|---|
Problema | Tije | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.28 kb |
var n,i,j: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:=n+1 downto n do
writeln(g,'1',' ',j);
end;
for i:=1 to n do
writeln(g,n+1,' ',1);
close(f);
close(g);
end.