поправил к выходу Delphi Prism 2011. Для RAD Studio не работает, и тот кряк я выкладывать не буду.
Только в образовательных целях! http://www.sendspace.com/file/2s0xke

__________________
Bedankt euch dafür bei euch selbst.

H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ