Плиииииз помогите! Срочно! Постройте таблицы истинности для выражения не (а и

     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.