algoritmus:
var
db, i: egész
osztok: tömb[egész]

i = 2;
while i < gyök(n)
begin
    ha n osztható i-vel {asszem így: n mod i = 0}
    begin
		ha m osztható i-vel
		begin
	        db++;
			osztok[db] = i;
			n := n / i;
			m := m / i;
			i := i - 1;
		end
    end
	i := i + 1;
end