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);