Exercicio:
Fiz so isso:
declare
maior, n: numerico;
incio
maior <- 0;
enquanto(n<=500) faca
ler(n);
se(n>maior) entao
maior <- n;
fim-se
escrever(maior);
fim
e o resto para o menor número?