Цитата Сообщение от hobot Посмотреть сообщение
игнорирует AND
В чем это проявляется?
Я не увидел проблемы:
Код:
.RU PASCAL TEST TEST

Errors detected:  0    
Free memory:  5213  words


.MAC TEST            

.LIN/LINK:PASCAL TEST

.RU TEST
TEST!
AAA
127 & 31 =      31

.TY TEST.PAS
PROGRAM TEST(INPUT, OUTPUT);
VAR
        A       : BOOLEAN;
        I       : INTEGER;

BEGIN
        WRITELN('TEST!');

        A:= FALSE;
        I:= 1;

        IF (I < 2) AND NOT A THEN WRITELN('AAA');

        WRITELN('127 & 31 = ', 127 AND 31)
END.


.