Algoritmo em linguagem portugol.

Algoritmo "vetor1a100"
// Disciplina:
// Algoritmo :
// Função :
// Autor : 
// Data :
var
vetor: vetor [1..100] de inteiro
soma, maior, i: inteiro
inicio
para i de 1 ate 100 faca
    leia(vetor[i])
fimpara
maior<-vetor[1]
soma=0
para i de 1 ate 100 faca
  se maior>vetor[i] entao
       maior<-vetor[i]
  fimse
  se i%4==0 entao
       soma=soma+vetor[i]
  fimse
fimpara
escreval("Resultado: ", soma/maior);
fimalgoritmo