Maior_Menor2

Algoritmo Maior_Menor()
    declare n, ma, me:inteiro;
    ma <- -10000;
    me <- 10000;
    escreval("Para sair do programa informe o número 0. ");
    repita
        escreva("Informe um número: ");
        leia(n);
        se (n > ma) entao
            ma <- n;
        fimse
        se (n < me) entao
            me <- n;
        fimse
    ate (n = 0)
    escreval("O maior número informado foi: ", ma);
    escreval("O menor número informado foi: ", me);
fimalgoritmo