булевые переменные

[alligator]

народ.изучаю паскаль и вот всё становится сложнее и сложнее,но я дойду до своей цели)))

есть блок схема

я написал код, но во первых не знаю ли правильно у меня расставлены ор\энды и я не понял, как ставятся not т.к. если я его ставлю например
if a and b not c then... то говорит 'then expected'

uses crt;
var a,b,c,d,e,f,g,h:boolean;
    s:string;

begin
    clrscr;
     write('street A:');
      readln(s);
        a:=S='1';
     write('street B:') ;
      readln(s);
       b:=S='2';
     write('shlagbaum C:');
      readln(s);
       c:=S='x';
     write('street d:');
      readln(s);
       d:=S='3';
     write('street e:') ;
      readln(s);
       e:=S='4';
     write('street f:')  ;
      readln(s);
       f:=S='5';
     write('street g:')   ;
      readln(s);
       g:=S='6';
 if a and b or c and d or  e then s:='okey.you are right' else s:='net';
 writeln(s);
 readln;
end.

это нужно написать прогу по которой, если улица один а(значение её тоесть тру), улица б свободна(её значение тру), если шлагбаум с НЕ закрыт(значение фолсе) то проехать в школу получится или если улица д свободна(значение тру) и улица е свободна(значение тру) то проехать получится или если улица ф свободна и шлагбаум же (значение фолсе) то проехать можно.
теперь вот, правильно ли я понял?(при этих всех значениях можно проехать, иначе проезд закрыт) и как в условный оператор вставить нот?
подскажите))

[veniside]

if  ( (A and B and not F) or (C and D) or (E and not G) ) then
  ; // дуй в школу
else
  ; // школа подождёт

[alligator]

аа.понял. не разобрался со скобками изначально просто)спасибо