Erdős-primes: Difference between revisions
m
→{{header|PL/M}}: better output formatting
(Added PL/M) |
m (→{{header|PL/M}}: better output formatting) |
||
Line 1,259:
DO WHILE COUNT < 25;
P = P + 2;
IF IS$
COUNT = COUNT + 1;
CALL PR$CHAR( ' ' );
IF P < 1000 THEN CALL PR$CHAR( ' ' );
CALL PR$NUMBER( P );
IF COUNT MOD 5 = 0 THEN CALL PR$NL;
Line 1,271 ⟶ 1,272:
{{out}}
<pre>
1259 1709 1831 1889 2141
2221 2309 2351 2411 2437
|