A B C V True True True True True True False False True False True True True False False True False True True True False True False True False False True True False False False True
var a,b,c,v: boolean;beginwrite('A':6, 'B':6, 'C':6, 'V':6);writeln;for a:=true downto false do beginfor b:=true downto false do beginfor c:=true downto false do beginv:= not(a and b) or c;writeln(a:6,b:6,c:6,v:6);end;end;end;end.