Números Perfeitos Visualg

Olá

Preciso de ajuda para desenvolver um algoritmo em visualg que recebe dois números e calcula a quantidade de números perfeitos entre este intervalo fechado, ou seja, incluindo os dois números.

Obs.: Um número perfeito é aquele que é igual à soma dos seus divisores (excluindo ele mesmo).

Exemplos: 6 = 1+2+3.

28= 1+2+4+7+14.

O que eu já consegui está no código abaixo.

algoritmo "perfeitos"
var i,n,soma: inteiro
inicio
leia (n)
soma <- 0
para i de 1 ate n-1 faca
se n%i=0 entao
soma <- soma + i
fimse
fimpara
se soma=n entao
escreva ("Perfeito")
senao
escreva ("Não é perfeito")
fimse
fimalgoritmo
Porém eu quero que o usuário possa escolher o intervalo. Por exemplo, de 1 a 100, e que o algoritmo retorne quantos números perfeitos existem entre 1 e 100.

Mas não tenho ideia de como começar a fazer isso.

Se alguém puder me ajudar agradeço muito.