Algoritmo "Maior e Menor"
procedimento verifica()
var
numero, maior, menor, contador: inteiro
inicio
escreva (" Escreva um número inteiro: ")
leia ( numero )
menor <- numero
maior <- numero
para contador de 1 ate 20 faca
leia ( numero )
se numero < menor entao
menor <- numero
fimse
se numero > maior entao
maior <- numero
fimse
fimpara
escreval ( "Maior: ", maior )
escreval ( "Menor: ", menor )
fimprocedimento

inicio
verifica()
fimalgoritmo