Решить задачу в pascal Королева арифметики решила озеленить свою столицу и заодно…

Решить задачу в pascal Королева арифметики решила озеленить свою столицу и заодно сосчитать жителей. Для этого она приказала всем посадить вокруг каждого дома столько деревьев, сколько в этом доме живет членов семей, а также их слуг. Определить номер самого населенного дома (количество деревьев, растущих возле каждого дома записано в виде последовательности, заканчивающейся числом ноль).