entier $a;
main()
{
si 0 alors
{ecrire(1);
}
sinon
{ecrire(0);}
}