Erro Floating Point Overflow em algoritmo no VisualG

[Marco_dev 0]

Estou usando o livro Algoritmos Estruturados do Harry Farrer para ver se consigo aprender lógica. Me deparei com um exercício de exemplo que pede para fazer uma tabela de Sen A. Ao transcrever esse algoritmo para o VisualG, estou tendo o erro Floating Point Overflow que me parece estar relacionado à linha:

Citar

se ABS (T)  < 0.0001 então...

Ocorre que quando tiro o ABS o algoritmo funciona sem dar o erro informado porém, o exercício pede que seja usada a função matemática ABS.

 

Segue o algoritmo:

 

Algoritmo "Exemplo 1.43 - Sen a"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Descrição   : Tabela de Sen a
// Autor(a)    : Marco Antonio de Oliveira
// Data atual  : 23/10/2018
Var
   // Seção de Declarações das variáveis
   A, N, SENA, T: real


Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   escreva ("A     SEN A      N")
   A := 0

   repita
      se A > 1.6 entao
         interrompa
      fimse
      //Cálculo de Sen A
      SENA := 0
      T := A
      N := 0
      repita
         se ABS(T) < 0.0001 entao
            interrompa
         fimse
         SENA := SENA + T
         N := N + 1
         T := -T * (A ^ 2) / 2 * N * (2 * N + 1)
      ate falso
      escreval()
      escreva (A, "    ", SENA, "       ", N)
      A := A + 0.1
   ate falso
Fimalgoritmo