Ввести n чисел. подсчитать количество случаев равенства двух чисел, идущих друг за другом. выполнить нужно на pascal через оператор repeat-until.

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