Data commit

Task/Nth/ERRE/nth.erre

@@ -0,0 +1,23 @@
+PROGRAM NTH_SOLVE
+
+!
+! for rosettacode.org
+!
+
+PROCEDURE NTH(S%,E%)
+      LOCAL I%,SUFF$
+      FOR I%=S% TO E% DO
+        SUFF$="th"
+        IF I% MOD 10=1 AND I% MOD 100<>11 THEN SUFF$="st" END IF
+        IF I% MOD 10=2 AND I% MOD 100<>12 THEN SUFF$="nd" END IF
+        IF I% MOD 10=3 AND I% MOD 100<>13 THEN SUFF$="rd" END IF
+        PRINT(STR$(I%)+SUFF$+" ";)
+      END FOR
+      PRINT
+END PROCEDURE
+
+BEGIN
+   NTH(0,25)
+   NTH(250,265)
+   NTH(1000,1025)
+END PROGRAM