O que significa o número 4.94065645841247E-324

Eae galera, beleza?

Hoje eu estava um pouco curioso e resolvi testar uma hipótese. Será que se dividirmos um número inteiro sempre por dois chegaremos a um número indivisível? Como isto daria muito trabalho resolvi escrever um algoritmo no Visualg. O meu código é o seguinte:

algoritmo "Teste da razão 2"

// Função : Encontrar um número indivisível

// Autor : XikuGuarana

// Data : 08/03/2017

// Seção de Declarações

var

n1: inteiro

resultado: real

inicio

// Seção de Comandos

EscrevaL("Digite um número inteiro qualquer:")

Leia(n1)

resultado <- n1

LimpaTela

Se(n1 > 0) entao

repita

resultado <- (resultado / 2)

EscrevaL(resultado)

ate resultado = 0

FimSe

EscrevaL("========== Resultado ==========")

EscrevaL("O menor número encontrado foi " , resultado)

fimalgoritmo

Pois bem. A ideia era que a repetição só acabasse quando fosse encontrado o número zero. E para minha surpresa, após alguns segundos o programa foi encerrado e o menor número encontrado foi 4.94065645841247E-324. Alguém tem ideia do que este número significa? Por que as divisões não continuaram ocorrendo?

Desde já agradeço toda a atenção e ajuda prestadas. Um forte abraço.