Programa em pascal que me de o valor de (1-1/3+1/5-1/7+1/9-...). Por favor, alguem tem ideia?

13,1)² - (5,1)³

      1 3, 1
x    1 3, 1
      1 3 1
   3 9 3
1 3 1   +  
1 7 1, 6 1
   
5,1 x 5,1

     5,1
     5,1
     5 1
2 5 5 + 
2 6, 0 1

2 6,0 1
x    5,1
      2 6 0 1
1 3 0 0 5 + 
1 3 2, 6 5 1

  1 7 1, 6 1 0
- 1 3 2, 6 5 1
 0 3 8,  9 5 9

171,61 - 132,651 = 38,959

Program Teste;

Uses crt;

Var

Begin

Clrscr;

Resultado := (1-1/3+1/5-1/7+1/9);

Writeln (O resultado da expressão será: “, resultado);

End

Program Teste;

Uses crt;

Var

Begin

Clrscr;

Resultado := (1-1/3+1/5-1/7+1/9);

Writeln (O resultado da expressão será: “, resultado);

End