Не правильно работает код в pascalABC
Написал код по задачке из олимпиады но если попадается одна и таже цифра то он ее тоже считает. Что нужно исправить или добавить?

По дате
По рейтингу
У вас такой ответ не потому что две тройки подряд, а потому что вы посчитали
1 и 2
2 и 3
3 и 4 (вторая тройка, не первая)
Перерешивайте, это не решение задачи
Ну и к тому же в условии нет требования, чтобы ступеньки отличались именно на единицу. В примерах все на 1 отличаются, чтобы вас запутать.
Больше по теме