Вчера минут через 40 трудов и нескольких выходов покурить программист закончил свой вариант. Получилось вот что:

## Код:
```
i := 0;
WHILE i < total DO
  count := 0;
  current := m[i];
  WHILE (i < total) & (current = m[i]) DO
    INC(i);
    INC(count)
  END
  INC(stat[count])
END
```


В общем, тоже разборчиво, но "подозрительно": два цикла манипулируют единственной переменной i и т. д.