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

Решение задачи:Код написан в программе Pascal.ABC.NET:var a: array[1..100] of integer; i, N, k: integer; beginwrite(\'Введите размерность N = \');readln(N);writeln(\'Последовательность: \');i:=1;k:=0;repeat begin write(\'a[\', i, \'] = \'); readln(a[i]); if (i<>1) and (a[i]=a[i-1]) then k:=k+1; i:=i+1; end;until i=N+1;write(\'Ответ: количество случаев равенства двух чисел, идущих друг за другом = \', k);end.