res:=RES(x,a,b) [a, b jsou polynomy použité algoritmy: rem(a,b) - zbytek po dělení polynomu a polynomem b deg(a) - stupeň polynomu a lcof(a) - vedoucí koeficient polynomu a, tj. koeficient u x^deg(a)] 1. n:=deg(a); m:=deg(b); 2. if n > m then res:=(-1)^(nm) RES(x,b,a); else lc:=lcof(a); if n = 0 then res:=lc^m; else r:=rem(b,a); if r = 0 then res:=0; else p:=deg(r); res:=lc^(m-p) RES(x,a,r); fi fi fi