Программа

Program Pilshikov_5_33 (input,output);
{ Напечатать таблицу истинности для
  ф-ии F=(A and B) or not(B or C) }
Var A,B,C:boolean;
BEGIN
  Writeln;
  Writeln('--------------------------');
  Writeln('A  ':5,'  ','B  ':5,'  ','C  ':5,'  ','F  ':5);
  Writeln('--------------------------');
  for A:=true downto false do
    for B:=true downto false do
      for C:=true downto false do
        Writeln(A:5,'  ',B:5,'  ',C:5,'  ',(A and B) or not(B or C):5);
  Writeln('--------------------------');
END.