Cod sursa(job #120187)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 4 ianuarie 2008 14:59:54
Problema Multimi2 Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.06 kb
program alex;
var f:text;
    n,i:longint;
begin
assign(f,'multimi2.in');reset(f);
readln(f,n);
close(f);
assign(f,'multimi2.out');rewrite(f);
if n mod 4=0 then begin
                  writeln(f,0);
                  writeln(f,n div 2);
                  for i:=1 to (n div 4)do
                      write(f,i,' ');
                  for i:=(n div 4)*3+1 to n do
                      write(f,i,' ');
                  writeln(f);
                  writeln(f,n div 2);
                  for i:=(n div 4)+1 to(n div 4)*3 do
                      write(f,i,' ');
                  end;
if n mod 4=3 then begin
                  writeln(f,0);
                  writeln(f,n div 2+1);
                  write(f,1,' ',2,' ');
                  for i:=4 to (n div 4)+3 do
                      write(f,i,' ');
                  for i:=(n div 4)*3+4 to n do
                      write(f,i,' ');
                  writeln(f);
                  writeln(f,n div 2);
                  write(f,3,' ');
                  for i:=(n div 4)+4 to(n div 4)*3+3 do
                      write(f,i,' ');
                  end;
if n mod 4=2 then begin
                  writeln(f,1);
                  writeln(f,n div 2);
                  write(f,1,' ');
                  for i:=2 to(n div 4)+2 do
                      write(f,i,' ');
                  for i:=(n div 4)*2+3 to n do
                      write(f,i,' ');
                  writeln(f);
                  writeln(f,n div 2+1);
                  for i:=(n div 4)+3 to(n div 4)*3+2 do
                      write(f,i,' ');
                  end;
if n mod 4=1 then begin
                  writeln(f,1);
                  writeln(f,n div 2+1);
                  for i:=1 to(n div 4)+1 do
                      write(f,i,' ');
                  for i:=(n div 4)*3+2 to n do
                      write(f,i,' ');
                  writeln(f);
                  writeln(f,n div 2);
                  for i:=(n div 4)+2 to(n div 4)*3+1 do
                      write(f,i,' ');
                  end;
close(f);
end.