Нужна помощь в проверке дз, седьмое задание. Скажите, я верно сделала?

В вашей программке ввод последовательности кончается вводом числа -1, но в задании сказано, что ввод заканчивается нулём

Нужно поменять until n=-1; на until n=0;

Ещё чтоб ноль не числился как число, при вычислении среднего арифметического, нужно добавить после цикла w:=w-1;