{$codepage UTF8} VAR a,b,c:byte; BEGIN a:=%00010100; //20 en decimal b:=%00000110; //6 en decimal Writeln('a= ',a); Writeln('b= ',b); c:=not a; Writeln('not a = ',c); c:= a and b; Writeln('a and b = ',c); c:= a or b; Writeln('a or b = ',c); c:= a xor b; Writeln('a xor b = ',c); c:= a shl 2; Writeln('a shl 2 = ',c); c:= a shr 2; Writeln('a shr 2 = ',c); readln; END.