funcao Teste_SeSenao()
{
declare x : inteiro;
leia("informe um numero ",x);
escreva ( sesenao ( x==0,"zero", sesenao ( x>0,"positivo","negativo") ) );
}