program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  f, f2: text;
  i,rez, n, k, sum: integer;
  ms: array of integer;
begin
  assign(f, 'input.txt');
  reset(f);
  assign(f2, 'output.txt');
  rewrite(f2);
  rez := 1; i:=0; n := -1; k := -2;
  while not EOLn(f) do
   begin
     inc(i);
     SetLength(ms, i);
     read(f, ms[i-1]);
     if not Odd(i-1) then
      rez := rez * ms[i-1];
     if (ms[i-1] = 0) and (n = -1) then n := i;
     if (ms[i-1] = 0) and (n > -1) then k := i-1;
   end;
  writeln(f2, '1) ', rez);
  sum := 0;
  for i:=n to k do
   sum := sum + ms[i];
  writeln(f2, '2) ', sum);
  for rez:=1 to sqr(length(ms)) do
   for i:=0 to length(ms)-2 do
    if (ms[i+1] >= 0) and (ms[i] < 0) then
     begin
       sum := ms[i];
       ms[i] := ms[i+1];
       ms[i+1] := sum;
     end;
  write(f2, '3) ');
  for i:=0 to Length(ms)-1 do
   write(f2, ms[i], ' ');
  Close(f); Close(f2);
end.

const
  n = 8; c = 3;
var
  ms: array [1..n] of byte;
  i,count,j,c2: integer;
begin
  count := n;
  for i:=1 to n do
   ms[i] := 1;

  i := 0;
  Repeat
    c2 := c;
    Repeat
      inc(i);
      if i>n then i:=1;
      if ms[i] = 1
       then dec(c2);
    Until c2=0;

    ms[i] := 0;
    dec(count);

    for j:=1 to n do
     if ms[j] = 1 then
      write(j:4);
    writeln;
  Until count = 2;

  writeln('Complete!');
  readln;
end.

Program Cool_Program;
Uses CRT;