На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, и К. По Каждой дороге можно двигаться Только в одном направлении, указанном Стрелкой. Сколько существует различных путей из города А в город К, проходящих через город В

uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.

При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0.
При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0