unit Funct;
interface
uses Math;
function sinT1(x:real):real;
function sinT2(x:real):real;
function fact(n:integer):integer;

implementation
function sinT1;
begin
  sinT1:=power(sin(x), 3);
end;

function fact;
var i :integer;
begin
    if n < 1  then
        result := 0
    else begin
        result := 1;
        for i := 1 to n do result := result * i;
    end;
end;

function sinT2;
var
sum:real;
n,r,f, i:integer;
begin
  sum:=0;
  n:=1;
  r:=-1;
  repeat
    r:=-r;
    f:= 1;
    for i:= 1 to (2 * n + 1) do f := f * i;
    sum:= sum + (r* ( (power(3, 2 * n + 1)-3) /f)  * power(x, 2 * n + 1))/4;
    n:=n+1;
    //write(sum, '---');
  until (abs(sum - power(sin(x), 3))<=0.0005);
  sinT2:= sum;
end;


end.