Cod sursa(job #1281)
| Utilizator |  Cobarzan Petrut kimhio |
Data | 13 decembrie 2006 10:30:01 |
|---|---|---|---|
| Problema | Lacate | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
program hio;
var f:text;
n,i:integer;
begin
assign(f,'lacate.in');reset(f);
read(f,n);
close(f);
assign(f,'lacate.out');rewrite(f);
writeln(f,n-1,' 1');
writeln(f,'1');
for i:=1 to n-1 do
writeln(f,i);
close(f);
end.