如何编写这种简单操作

laq

字节型变量a和b，他们的值分别为00110100和01000101，即十进制中的52和69，请分别写出a和b按位与、按位或、a按位取反、a左移1位、b右移2位的表达式、结果、以及换算为十进制后的值。

87079472

var
  a, b: Integer;

begin
  a := 52;
  b := 69;
   //按位与
  Writeln(a and b);
  //按位或
  Writeln(a or b);
    //按位异或
  Writeln(a xor b);
     //向左移位
  Writeln(a Shl 1);
    //向右移位
  Writeln(b Shr 2);
  readln;

end.