15 lines
248 B
Text
15 lines
248 B
Text
BEGIN
|
|
|
|
% RETURN 1 IF EVEN, OTHERWISE 0 %
|
|
INTEGER FUNCTION EVEN(I);
|
|
INTEGER I;
|
|
BEGIN
|
|
EVEN := 1 - (I - 2 * (I / 2));
|
|
END;
|
|
|
|
% TEST THE ROUTINE %
|
|
INTEGER K;
|
|
FOR K := 1 STEP 3 UNTIL 10 DO
|
|
WRITE(K," IS ", IF EVEN(K) = 1 THEN "EVEN" ELSE "ODD");
|
|
|
|
END
|