program AndDemo;
var
  a, b, c: Integer;
begin
  if (a = 0) and (b = 0) then  { logical `and' }
    c := 1
  else if a and b = 0 then  { bitwise `and' }
    c := 2
  else
    and (c, a)  { same as `c := c and a' }
end.
