X Y V True True False True False True False True True False False True
X Y V True True True True False False False True True False False True
var x,y,v: boolean;beginwrite('X':6, 'Y':6, 'V':6);writeln;for x:=true downto false do beginfor y:=true downto false do beginv:= y and (not x)or (not y);writeln(x:6,y:6,v:6);end;end;writeln;writeln;writeln;write('X':6, 'Y':6, 'V':6);writeln;for x:=true downto false do beginfor y:=true downto false do beginv:= (not y) and (not x)or y;writeln(x:6,y:6,v:6);end;end;end.