Кому не сложно подскажите как разложить такую функцию на Делфи:

function fact(x:integer):integer;
begin
if (x=1) or (x=0) then fact:=1 else fact:=x*fact(x-1);
end;

function pow(x:real; y:integer):real;
var res:real;i:integer;
begin
res:=1;
if (y=0) then pow:=1;
if (y=1) then pow:=x;
for i:=1 to y do res:=res*x;
pow:=res;
end;

function s(x:integer):real;
var i:integer;
res:real;
begin
res:=0;
for i:=1 to 10 do begin
res:=res+(pow(-1,i)*x*pow(sin(x),i)/i);
end;
s:=res;
end;

function p(x:real):real;
var i:integer;
res:real;
begin
res:=1;
for i:=1 to 6 do begin
res:=res*(pow(x,i)/fact(i));
end;
p:=res;
end;