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

Ответы:

var a,b,n,k:integer,

begin

a:=0, read(n),

for k :=1 to n do begin

while b&lt,&gt,0 do begin

read(b), if a&lt,b then a:=b,

end, end, end.