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 "Números Inteiros e Positivos "

var

            n, n1, n2, k: inteiro

inicio

            escreva ("Entre com o primeiro número inteiro: ")

            leia (n1)

            escreva ("Entre com o segundo número inteiro: ")

            leia (n2)

            escreval ("Os Números são: ")

            n <- n1

               enquanto n < n2 faca

                    se ((n mod 10) <> 0) entao

                        k <- n div 10

                             se (k <> 0) entao

                                  se ((n mod k) = 0) entao

                                      escreval (n)

                                 fimse

                             fimse

                     fimse

                  n <- n+1

               fimenquanto

fimalgoritmo