Lista 25 out. 4

Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que:
a) Não terminem em zero;
b) Se o dígito à direita for removido, o número restante seja divisor do número original. (ex: 39 (3 é divisor de 39).

algoritmo "25 Outubro 4"
// Função :
// Autor :
// Data : 26/10/2010
// Seção de Declarações 
var
   n1,n2,i,divisor: inteiro
inicio
// Seção de Comandos
   escreval("Informe o numero inicial:")
   leia(n1)
   escreval("Informe o numero final:")
   leia(n2)
   
  para i de n1 ate n2 passo 1 faca
       se (i>0) entao
          se ((i mod 10) = 0) entao
             divisor<- (i div 10)
             se ((i mod divisor) = 0) entao
                escreval("Numero ",divisor," é divisor de ",i)
             fimse
          fimse
       fimse
  fimpara
fimalgoritmo