algoritmo "Números pares (com repita)"
var
par: inteiro
inicio
par <- 10
repita
escreval (par)
par <- par - 2

ate par < 2
fimalgoritmo


algoritmo "Repita_inteiro_media"
var
media,cont,soma,n: real
inicio
repita
Escreval ("Escreva um número")
leia (n)
Se n >=4 entao
soma <- (soma+n)
cont <- cont + 1
Fimse
ate n = 0
media <- soma/cont
Escreval (media)
fimalgoritmo


algoritmo "Números 20 (com repita)"
var
res,n,j: inteiro
media: real
inicio
j <- 1
repita
j <- j + 1
escreval ("digite um número")
leia (n)
res <- res + n
ate j > 20
media <- res/20
Escreval (media)
fimalgoritmo