program pptest4;

  var
    i,
    j,
    k: integer;
    b: boolean;

  begin
  { basic operations }
    b := i = j;
    b := i <> j;
    b := i > j;
    b := i < j;
    b := i >= j;
    b := i <= j;

    { optimised zero operations }
    b := i = 0;
    b := i <> 0;
    b := i > 0;
    b := i < 0;
    b := i >= 0;
    b := i <= 0;

    { negated operations }
    b := not (i = j);
    b := not b;

    { compound operations }
    b := (i = j) or (i = k);
    b := (i = j) and (i = k);
    b := not ((i = j) or (i = k));
    b := b and ((i = j) or ((i = k) and b));
    b := (i = j) and b;
    b := (i = j) and true;
    b := (i = j) or true;

    { standard operations }
    b := odd(0);
    b := odd(131);
    b := odd(i);
  end { pptest4 }.