si x > 0 alors écrire('Positif') sinon écrire('Négatif ou Nul');
pour i := 1 à 10 faire début écrire(i); fin;
tant que x < 100 faire début x := x * 2; fin;