Pascal/Turbo Pascal - Como hacer la funcion seno en pascal

{Esta es la forma para dentro de una función}

program funciones;

  uses

    crt;

 const

        base = 1;

  var

    numero : longint;

  function valorseno : real;  {Vasado en funciones pascal}

  begin

     valorseno := 0.0;

     write('Entre Numero A Calcular : ');

     readln(numero);

     valorseno := sin(numero);

  end;

  function valorseno2 : integer;   {Implementacion tullo}

  var

     num : integer;

     function factorial(num : integer) : integer;

     begin

        if (num = 0) or (num = 1) then

        begin

           factorial := 1;

        end

    else

       begin

         factorial := num * factorial(num-1);

       end;

    end;

     function potencia(base,exp:integer):integer;

     var

       p : longint;

       i : integer;

       begin

       if (exp = 0) then

       p := 1

     else

     begin

       p := base;

        for i := 2 to exp do

        p := p * base;

     end;

      potencia := p;

   end;     {Forma de una sola funcion}

  begin

     write('Entre Numero A Calcular : ');

     readln(numero);

     valorseno2 := potencia(base,potencia(factorial(numero)));

  end;

  begin

      clrscr;

      writeln(valorseno);

      writeln(valorseno2);

      readln;

  end.