Maior elemento

algoritmo "Maior elemento"
var
   numero : vetor[1..5] de inteiro
   i, maior : inteiro

inicio
   para i de 1 ate 5 faca
      escreval ("digite a posição",i)
      leia (numero[i])
      se i = 1 entao
         maior <- numero[i]

      senao
         se numero[i] > maior entao
            maior <- numero[i]
         fimse
      fimse
   fimpara
   escreval ("meu maior numero é: ", maior)



fimalgoritmo