PROGRAM Test3;
BEGIN
  A := A AND 1 + 4 = 5;
END;