Primality by trial division: Difference between revisions

Content added Content deleted
(Add Modula-2)
Line 3,113:
 
=={{header|Modula-2}}==
<syntaxhighlight lang="modula2">PROCEDUREMODULE prime(n: CARDINAL): BOOLEANTrialDivision;
FROM InOut IMPORT WriteCard, WriteLn;
 
CONST
Max = 100;
VAR
i: CARDINAL;
 
PROCEDURE prime(n: CARDINAL): BOOLEAN;
VAR
factor: CARDINAL;