Привет всем! Помогите, пожалуйста, с задачей)
Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом.

Если не понятно, могу проще.

Мне бы через repeat-until, если можно)

Поправил.

Спасибо большое!

//Pascal ABC.NET Версия 2.2 Сборка 790var i,k,n,a,b:integer;begin;readln(n);i:=1;repeatif i mod 2<>0 then readln(a) else readln(b);if b=a then inc(k);inc(i);until n+1=i;writeln('Result:',k);end.Пример ввода:3 1 1 2Пример вывода:Result:1