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.