Cod sursa(job #31179)

Utilizator ravediscret rave Data 15 martie 2007 16:40:40
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.