MODULE Ch1 EXPORTS Main;

IMPORT SIO;

VAR 
  A1:ARRAY[0..4] OF CARDINAL := ARRAY OF CARDINAL{1,2,3,4,5};
  A2:ARRAY[0..3] OF CARDINAL := ARRAY OF CARDINAL{2,3,8,16};
  A3:ARRAY[0..4] OF CARDINAL := ARRAY OF CARDINAL{1,2,5,7,9};

PROCEDURE BitwiseOr(VAR A:ARRAY OF CARDINAL):BOOLEAN =
  VAR Count:CARDINAL;
  BEGIN
    FOR I := FIRST(A) TO LAST(A) DO
      IF A[I] MOD 2 = 0 THEN INC(Count) END;
      IF Count > 1 THEN RETURN TRUE END
    END;
    RETURN FALSE
  END BitwiseOr;

BEGIN
  SIO.PutBool(BitwiseOr(A1)); SIO.Nl();
  SIO.PutBool(BitwiseOr(A2)); SIO.Nl();
  SIO.PutBool(BitwiseOr(A3)); SIO.Nl()
END Ch1.