Primality by trial division: Difference between revisions

Content added Content deleted
No edit summary
Line 385: Line 385:
INTEGER P, Q;
INTEGER P, Q;
BEGIN
BEGIN
MOD := P - Q * (P /Q);
MOD := P - Q * (P / Q);
END;
END;