Вводится число N, а потом - N чисел. Найти, сколько посреди

program zz1;

var a, b,  n, i, m:integer; // задаем переменные целого типа

begin

write( введите 2 lt;= N lt;= 100 );  // вводим с клавиатуры количество вводимых чисел

read(n);  

read(b);  // вводим 1-ое число

for i:=1 to n-1 do // организуем цикл на n-1 повторений

begin

read(a);  // вводим очередное число

if a = b then m:=m + 1; // проверяем, если еще одно число одинаково предшествующему, то считаем его

b:=a; // еще одно число делаем предшествующим

end;

write( количество схожих пар чисел = , m); // выводим ответ

end.