Good night, I'm having a issue with writeln on Embarcadero 10.2, I'm trying to write the sin() function as a Taylor expansion infinite serie. 

Everything it's running fine, but the output is being in Scientific Expression like: 3.60448486921676E-0158 when the correct was 0.912945250727627654376099983845. 

I need a 30 digits precision. My code below, It's a console program. 

```
program Project1;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Windows,
  Math;

function fact(n: LongInt): extended;
begin
  if (n = 0) then
     fact := 1
  else
     fact := n * fact(n - 1);
end;

var
  one:integer;
  fin:extended;
  number:LongInt;
  i:integer;
  cons:LongInt;
  cons1:extended;
begin
  one := -1;
  writeln('Digite o angulo em radianos para o Seno: ');
  readln(number);
  for i := 1 to 120 do
  begin
    cons := (2*i)+1;
    if(i mod 2) = 0 then 
      one := 1
    else 
      one := -1;
    cons1 := fact(cons);
    fin := (one/cons1)*(power(number,cons));
    cons := 0;
  end;
  writeln(fin);
  readln;

end.

```