Переведите формулу на язык Delphi

[neomaximus]

Помогите перевести формулы

и

Заранее огромное спасибо

[maxvodo.dll]

(1+sin(x+y)*sin(x+y))/(x-((2*y)/(1+x*x*y*y)))*instep(x,y)+cos(argtg (1/z))*cos(argtg(1/z))

;function instep(const per:real; step:real):real;
var i:integer;
begin if step>=2 then for i:=2 to step do x:=x*x; result:=x; end;

[eoln]

Сообщение от maxvodo.dll

(1+sin(x+y)*sin(x+y))/(x-((2*y)/(1+x*x*y*y)))*instep(x,y)+cos(argtg (1/z))*cos(argtg(1/z))

;function instep(const per:real; step:real):real;
var i:integer;
begin if step>=2 then for i:=2 to step do x:=x*x; result:=x; end;

Простите maxvodo.dll, но я невижу ни модуля, ни правильной функции возведения в степень

  v := ( 1+sqr(sin(x+y)) ) / abs( x-(2*y/(1+sqr(x)*sqr(y))) )
  * exp(abs(y)*ln(x)) + sqr(cos(arctan(1/z)));