program SumOfSequence;

var
num, sum, count: integer;

begin
sum := 0;
count := 0;

repeat
write('Введите число: ');
readln(num);
sum := sum + num;
count := count + 1;
until num = 0;

writeln('Сумма всех чисел последовательности: ', sum);
writeln('Количество всех чисел последовости: ', count);
end.