var
  b : boolean;
begin
  byte(b):=1;
end.