Где ошибка?

[Kokosaki]

Пожалуйста помогите найти исправление ошибки.

Program PravdaorKrivda;

var
A,B,C,D,F,G:Boolean;
S:string;

begin

F:=True;
G:=True;
Print('True=1');
Print('False=0');
Writeln('Улица A:'); Readln(S); A:= S='1';
Writeln('Улица B:'); Readln(S); B:= S='1';
Writeln('Улица A:'); Readln(S); C:= S='1';
Writeln('Улица B:'); Readln(S); D:= S='1';
Writeln('Шлагбаум F:'); Readln(S); A:= S='1';
Writeln('Шлагбаум G:'); Readln(S); B:= S='1';
if A and B and not F or C and D or E and not G then
S:='Езжай на машине'
else
S:='Иди пешком';
Print(S);

end.

[Stilet]

Найти ошибку или найти ее исправление?
Формула сама как выглядит?

[Kokosaki]

Аааа.... всё простите за неудобство я нашёл ошибку.

[Kokosaki]

Program PravdaorKrivda;

var
A,B,C,D,F,G,E:Boolean;
S:string;

begin

F:=true;
G:=true;
writeln('открыт(о)=1');
writeln('закрыт(о)=0');
writeln(' ');
write('Улица A: '); Readln(S); A:= S='1';
write('Улица B: '); Readln(S); B:= S='1';
write('Улица C: '); Readln(S); C:= S='1';
write('Улица D: '); Readln(S); D:= S='1';
write('Улица E: '); Readln(S); E:= S='1';
write('Шлагбаум F: '); Readln(S); F:= S='0';
write('Шлагбаум G: '); Readln(S); G:= S='0';
if A and B and not F or C and D or E and not G then
S:='Езжай на машине'
else
S:='Иди пешком';
writeln(' ');
Print(S);
writeln(' ');
writeln('Нажмите Enter...'); 
readln();

end.

Вот правильный вариант.А вот и схема:

[Stilet]

А я бы наверное так делал:

if 
  (a and b and f) or
  (e and g) or
  (c and d)
then Можно на машине
else Лучше пешкарусом.

А вообще наши в школу на такси не ездют

[Kokosaki]

Не не не не надо ставить (x and y) or (f and e) это не объязательно
Вот еслиб было (x or y) and (f or e) тогда надо было

http://oleg-derevenets.narod.ru/2014...2014-07-21.pdf Вот книга

СТРАНИЦА 86.