Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом. Выполнить нужно на Pascal через оператор Repeat-Until.

var n,a,b,k,i:integer;begink:=0;i:=1;write('n=');readln(n);write('a=');readln(a);repeati:=i+1;write('a=');readln(b);if a=b then k:=k+1;a:=b;until i=n;writeln('k = ',k);end.