4)Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que:

algoritmo "Números inteiros e positivos entre n1 e n2"

var

  k,n, n1, n2 : 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