Cod sursa(job #31162)
| Utilizator |  discret rave |
Data | 15 martie 2007 16:32:47 |
|---|---|---|---|
| Problema | Lacate | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
var f:text;
n:byte;
begin
assign(f,'lacate.in');reset(f);
readln(f,n);close(f);
assign(f,'lacate.out');rewrite(f);
if n=4 then
begin
writeln(f,'6 3');
writeln(f,'1 2 3');
writeln(f,'1 4 5');
writeln(f,'2 4 6');
writeln(f,'3 5 6');
close(f);
end;
end.
