Создать подробную таблицу истинности для R: R=notA&(BVnotC)&B

000  R = 0001  R = 0010  R = 1011  R = 1100  R = 0101  R = 0110  R = 0111  R = 0Код программы:Var A,B,C : Boolean;Begin  For A:=False to True do   For B:=False to True do    For C:=False to True do Writeln(Ord(A),Ord(B),Ord(C),'  R = ',ord((not A) and (B or not C) and B));end.