r = m % n; while ( r != 0 ) { m = n; n = r; r = m % n; }
R = M MOD N WHILE R <> 0 M = N N = R R = M MOD N WEND
R := M Mod N; While R <> 0 Do Begin M := N; N := R; R := M Mod N; End;
Next Lesson