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

vara, s, n: integer;beginn:=0; s:=0;repeatreadln(a);inc(n);inc(s, a);until a = 0;writeln('Сумма: ', s);writeln('Количество: ', n);end.