Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается нулем.(a=0 признак окончания ввода , ноль не входит в последовательность). Программа должна вывести количество и сумму всех чисел последовательности.

var a, b, c: integer;beginb:=0;c:=0;readln(a);while a <> 0 dobeginb:=b+1;c:=c+a;readln(a);end;writeln('Кол-во: ',b);writeln('Сумма: ',c);end.