12 lines
184 B
Text
12 lines
184 B
Text
|
PROGRAM "Even/Odd"
|
||
|
|
|
||
|
|
DECLARE FUNCTION Entry ()
|
||
|
|
|
||
|
|
FUNCTION Entry ()
|
||
|
|
FOR i = 1 TO 10
|
||
|
|
IF (i MOD 2) THEN PRINT i;" is odd" ELSE PRINT i;" is even"
|
||
|
|
NEXT i
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
END PROGRAM
|