for i=1 to N do
begin
Counter:=1;
if Number[i+1] = Number[i]
then Counter := Counter + 1
else Counter := 1;
if Counter = 3 then MessageDlg('Three Numbers one by one', mtWarning, [mbOk], 0);
end;
//N-число строк в статистике
//Counter - счетчик повторяющихся номеров
//Number - массив статистики от 1 до N
Текст программки под Делфи. Можно оформить как вызываемую функцию.
