Escreva um progama que receba um conjunto de valores inteiros e positivos, calcule e imprima o maior e menor valor do conjunto

Var
    v : vetor [1..4] de inteiro
    i , j , aux : inteiro
Inicio
    // entrada dos números
    para i de 1 ate 4 faca
    Escreva("Digite o ",i,"º número: ")
    Leia(v[i])
    fimpara
    // colocar números em ordem crescente
    para i de 1 ate 3 faca
        para j de i + 1 ate 4 faca
            Se v[i] > v[j] entao
                aux <- v[i]
                v[i] <- v[j]
                v[j] <- aux
            fimse
        fimpara
    fimpara
    // mostra o menor valor do vetor
    Escreval("O menor número é ",v[1])
    // mostra o maior valor do vetor
    Escreva("O maior número é ",v[4])
Fimalgoritmo