Цикл с постусловием
 

Приветствую!
Товарищи, помогите решить задачу.
Во входном файле хранится последовательность целых цисел. Из нее надо прочитать подпоследовательность от начала исходной последовательности до первых двух повторяющихся смежных чисел включительно.
Вывести на монитор кол-во чисел в подпоследовательности.

Не понимаю как можно к ней подобраться...tehno015

Забыл указать язык.. программа должны быть на фортране