tests/webtbs/tw35272.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

var
  b1, b2, b3: longbool;
begin
  b1:=longbool(1);
  b2:=longbool(2);
  b3:=b1 and b2;
  if not b3 then
    halt(1);
  b3:=b1 xor b2;
  if b3 then
    halt(2);
{$b+}
  b3:=b1 and b2;
  if not b3 then
    halt(3);
  b3:=b1 xor b2;
  if b3 then
    halt(4);
end.