Дана послкдовательность чисел оканчивающихся ** 0 найти сумму и произведениепаскаль

Question

Дана послкдовательность чисел оканчивающихся на 0 найти сумму и произведение
паскаль

Answer 1

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var (sum,p):=(0,1.0);
ReadSeqIntegerWhile(t->t<>0).ForEach(f->begin sum+=f; p:=p*f; end);
write('сумма: ',sum,'; произведение: ',p);
end.