// Pascal ABC.Net

// Ответ: 2

const

 N = 6;

var

 x: Array [1 .. N] of Boolean;

 count: Integer;

procedure rec(k: Integer);

var l: Boolean;

begin

 if k > N then begin

   if not(x[1] or x[2])

     and not(x[2] and x[3])

     and not(x[4] or not x[5])

     and (x[5] xor x[6])

     and not(x[1] and x[4]) = true

   then

     Inc(count);

 end

 else begin

   for l := false to true do begin

     x[k] := l;

     rec(k+1);

   end;

 end;

end;

begin

 count := 0;

 rec(1);

 WriteLn(count);

end.