Construction d'un algorithme simple
On écrit un algorithme qui permet l'addition de deux entiers:
Algorithme Addition_2Entiers;
Var
A, B, C: entier;
Début
Écrire("Entrer deux entiers :");
Lire(A, B);
C <--A + B;
Écrire("La somme de ", A, " et ", B, " est: ", C);
Fin.