#pas
_Sqr:=sqr(Rnd1) + sqr(Rnd1);
ТщательнЕе надо... ТщательнЕе...
------------ Дoбавленo в 16.07:
И где, скажите на милость, гарантии того, что _Sqr не будет равен нулю.
------------ Дoбавленo в 16.08:
И что ты исхитрился померить время вычисления косинуса - не верю ни разу