algoritmo()
{
declare x:inteiro;
leia("informe um numero ",x);
escreva("o numero ", x, " e ",
sesenao(x % 2 == 0,"par","impar"););
}