Верхний левый модуль реализует функцию B & C.
Нижний левый модуль реализует функцию ¬A
Правый модуль реализует функцию B & C ∨ ¬A
На один символ (букву) необходим 1 байт информации или 8 бит.
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>