Programa1.while

para i de 1 ate 10 faca {
  escreva i;
  i := i + 2
};
escreva i

Programa2.while

n := 20;
soma := 0;
para i de 1 ate n faca {
  escreva i;
  n := n - 2;
  soma := soma + i
};
escreva soma

Programa3.while

n := leia;
a := 5;
para i de 1 ate 10 faca
  escolha n
    caso a: escreva a
    caso 2: exiba "Dois"
    caso 3: exiba "Tres"
    outro : {exiba "outro"; a := a - 1}