begin comment disjunction (or) operation; boolean ba, bb, br; integer i, j; procedure outboolean(channel, b); integer channel; boolean b; begin if b then outstring (channel, "true ") else outstring (channel, "false ") end; for i := 0 , 1 do begin if i=1 then ba := true else ba := false ; for j := 0 , 1 do begin if j=1 then bb := true else bb := false ; br := ba | bb ; outboolean(1, ba); outboolean(1, bb);outboolean(1, br); outstring (1, "\n") end end end