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.