var
A, B, C1, C2, C3, C4, C5, C6: Integer;
begin
A := 5; //0101
B := 6; //0110
C1 := A and B;
//C1 is 4 (0100)
C2 := A or B;
//C2 is 7 (0111)
C3 := A xor B;
//C3 is 3 (0011)
//shift right
C4 := A shr 1;
//C4 is 2 (0010)
//shift left
C5 := B shl 1;
//C5 is 12 (1100)
//bits inversion
C6 := not B;
//C6 is -7
WriteLn('c1 = ', C1);
WriteLn('c2 = ', C2);
WriteLn('c3 = ', C3);
WriteLn('c4 = ', C4);
WriteLn('c5 = ', C5);
WriteLn('c6 = ', C6);
end.