Вводится число N, а затем - N чисел. Определить, сколько среди них пар одинаковых чисел. 2<=N<=100. На паскале

program zz1;

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

begin

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

read (n);

read (b); / / вводим первое число

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.