gcd:=GCDPRS(a(x),b(x))
[předpokládá, že stupeň polynomu a je větší nebo roven stupni
polynomu b, tj. deg(a) >= deg(b)
použité algoritmy:
prem(a,b) - pseudo-zbytek po dělení polynomu a polynomem b
pp(a) - primitivní část polynomu a
gcdi(j,k) - největší společný dělitel dvou celých čísel ]
1. A:=pp(a);
B:=pp(b);
2. while not B =0 do
r:=prem(A,B);
A:=B;
B:=r;
od;
3. gcd:=gcdi(cont(a),cont(b)) pp(A);