Дана непустая последовательность чисел оканчивающаяся нулем. Найти: а) сумму всех чисел последовательности, б) кол-во всех чисел последовательности. решить через Pascal ABC через repeat, for или while

program zz1;

var x, y, k:integer; / / задаем переменные целого типа

begin

read (x); / / вводим первое число последовательности

y:=y + x;

k:=k + 1;

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

read (x); / / вводим следующее число последовательности

y:=y + x; / / добавляем его в сумму

k:=k + 1; / / считаем количество

end;

write (' Сумма чисел последовательности = ', y); / / выводим ответы

write (' Количество чисел последовательности = ', k - 1);

end.