program simple_expressions;

{$mode objfpc}{$H+}

var
  b: Byte = 4;
  c: Byte = 3;

begin
  WriteLn('Initial value of b is ', b, '; initial value of c is ', c, sLineBreak);
  b := b shr 1; // >> shift right
  c := shl 4; // << shift left
  WriteLn('After b shr 1, b is ', b, '; after c shl 4, c is ', c, sLineBreak);
  WriteLn('c xor b = ',c xor b, '; c and b = ', c and b, '; c or b,'
  {$IFDEF WINDOWS}
  ReadLn;
  {$ENDIF}
end.