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

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