第三章 p62 或运算

//61 图2
program test;
var 
  i,j,k:byte;
begin
  i:=%01001101;
  j:=%11010100;
  k:=i or j; //或运算
  writeln( binstr(i,8) );
  writeln( binstr(j,8) );
  writeln( binstr(k,8) );
end.