#pas
procedure THIMathParse.Level4;   // Смена знака, лог. not
var op:char;
begin
  op := ' ';
  if (Token = '-')or(Token = '+')or(Token = 'not') then begin
    op := Token[1];
    GetToken;
  end;
  Level5(x);
  if op = '-' then x := -x else
  if op = 'n' then x := ord(x=0);
end;