Exemplo 45

==============================================================

Ler um valor N e imprimir todos os valores inteiros entre 1 (inclusive) e N (inclusive). N só deve aceitar número maiores que ZERO.

==============================================================

 

// Seção de Declarações 

var

valor,numero:inteiro

inicio

// Seção de Comandos

repita

   escreval("Entre com um numero ")

   leia(numero)

ate(numero > 0)

para  valor de 1 ate numero faca

       escreva(valor)

fimpara

fimalgoritmo

==============================================================