IFSP - Maior, menor e média *-*

algoritmo "500 valores inteiros e positivos "
// Função :
// Autor :
// Data : 29/9/2010
// Seção de Declarações
var
x,y,maior,menor,soma : inteiro
media : real
inicio
ESCREVA ("Entre com um número inteiro e positivo: ")
LEIA (x)
SE (x>0) ENTAO
y <- x soma <- (x+soma) maior <- x menor <- x PARA y DE 1 ATE 10 FACA ESCREVA ("Digite um número inteiro e positivo: ") LEIA (x) SE (x>0) ENTAO
SE (x>maior) ENTAO
maior <- x FIMSE SE (x
menor <- x FIMSE SENAO ESCREVAL ("Número inválido FIMSE FIMPARA SENAO ESCREVAL ("Número inválido") FIMSE ESCREVAL ("O maior número é: ", maior) ESCREVAL ("O menor número é: ", menor) media <- (soma/10) ESCREVA ("A média dos números digitados é: ", soma:8:2) fimalgoritmo