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

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