prograv v1;
uses crt;
var A, B: byte;
begin
clrscr;
A:=15;
B:=8;
writeln('A=',A);
writeln('B=',B);
writeln('not A=', not A);
writeln('A and B=', A and B);
writeln('A or B=', A or B);
writeln('A xor B=', A xor B);
writeln('A shl 1=', A shl 1);
writeln('B shr 2=', B shr 2);
readln;
end.