uses dos,crt; {Модули}
const adres=$379; {Присвоить адрес порта константе "адрес"}
var
b:byte;
begin
b:=8;{Мы читаем негативное и чтобы увидеть разницу присвоим переменной b значения 8 }
writeln(b);{Выводим для визуального воспринимания.}
readln;{Жмем Энтер}
b:=port[adres] and 8; {А теперь затаскаем в b значение 15 лапки(картинка в спойлере) лпт порта.Т.к }
writeln(b);{было.}
readln;{было}
end.

uses dos,crt; {Модули}
const adres=$379; {было}
var
b:byte;
begin
b:=0;{Изменения тут}
writeln(b);{было.}
readln;{было}
b:=port[adres] and 8; {А теперь заносим в b значение 15 лапки(картинка в спойлере) лпт порта.Т.к }
writeln(b);{было.}
readln;{было}
end.