Programa: LEITURA;
inteiro: N;
repita:
escreva ("Digite um numero")
leia(N);
se N mod 2 <> 0 entao
escreva ("numero negativo")
fimse
ate que N mod 2=0
escreva ("numero positivo)
fimalgoritimo

--
Ler idades de várias pessoas. Imprimir no final a média das idades dessas pessoas. Parar quando um número não positivo for lido. Esse número não positivo não deve entrar no cálculo da média
.
Programa: MEDIA;
inteiro: IDADE,CONT,MD;
real: S;
MD=0;
CONT=1
repita:  
escreva ("Digite a idade")
leia(ID);
se ID > 0 entao
MD=MD+ID;
CONT=CONT+1;
senao
escreva ("Idade invalida")
ate que ID < 0;
S=MD/CONT;
escreva (S);
fimalgoritimo

--
programa TRIANGULO;
real: A,B,C
inicio
 escreva("entre com o valor de a: ")
leia(a)
escreva("entre com o valor de b: ")
leia(b)
escreva("entre com o valor de c: ")
leia(c)
se (A  escreval("Estes valores formam um triangulo")
se (A=B) e (B=C) entao
    escreva ("Triangulo Equilátero")
   senao se (A=B) ou (B=C) ou (A=C)entao
    escreva ("Triângulo Isósceles") senao escreva ("Triangulo Escaleno")
 fimse
fimse
senao
   escreva ("Estes valores não formam um triângulo")
  fimse
fimalgoritmo