В последовательности чисел, вводимых с клавиатуры, определить количество чисел между двумя числами 3. Признак завершения ввода: второе число 3.

Создаешь цикл внутри будет ввод самого числа, если введено число 3, то переменная++, и в нутри цикла ещё проверка, если переменная будет равняться 2, то нужно выйти с цикла. результат будет: итератор-2

##

var t: integer;

repeat

 Read(t)

until t = 3;

var k := 0;

while True do

begin  

 Read(t);

 if t = 3 then break;

 k += 1

end;

Print(k)