[أحلام]

begin

var n: ineteger;

tab[100]: array of integer;

i : ineteger;

correction: bool;

{Déclaration des variables "Comme le tableau doit être déclarer avec une valeur statique qu'on as pas, on prend la valeur max.}

write("Veillez entrer le nombre d'element");

read(n);

{L'utilisateur entre le nombre de valeurs a entrer}

write("Veillez entrer vos valeurs");

for i=1 to n do

read tab[i];

enddo;

{remplissage du tableau}

while i <> n & correction = true do

if tab[i] = tab[i+1]+1 then correction = true else correction = false;

i=I+1;

{Vérification si les valeurs sont consécutifs, dès que la variable booléenne passe a faux on sort de la boucle "While"}

enddo;

if correction = true then write("Les chiffres entrés sont consécutifs");

sinon write("les chiffres entrés ne sont pas consécutifs");

{Le message final}

END.

Ceci est un algorithme en anglais,

si tu veux le même programme dans un langage précis n'hésite pas

Bon courage.