Создать подробную таблицу истинности для r: r=nota& (bvnotc)& b

000  R = 0
001  R = 0
010  R = 1
011  R = 1
100  R = 0
101  R = 0
110  R = 0
111  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.