p63 特定位置的位变1，进行或运算

//63
program test;
var 
  i,j,k:byte;
begin
  i:=%00110000;
  for j:=0 to 9 do begin
    k:=i or j;
    writeln( binstr(k,8), space(4), chr(k) );
  end; //第二列输出的是字符
end.