program test_1;
var x, num, num_sum: integer;

begin
    x := 0; {счётчик количества введённых чисел}
    num := 1; {введённое число, по умолчанию 1,
                            что бы запустился цикл}
    while num <> 0 do begin {запрашиваем число до тех пор,
                                            пока не введут 0}
        read(num); {вводим число}
        num_sum := num_sum + num; {считаем общую сумму чисел}
        x := x+1; {увеличиваем счётчик на 1}
        end;
    write(num_sum/(x-1)); {выводим число по формуле сумма чисел делёная
                                                     на количество чисел}
        
end.