Напишите программу, которая вычисляет сумму и произведение целых чисел, поданных на её вход. Ввод заканчивается числом 0.

program zz1;

var x, y, p:integer; / / задаем переменные целого типа

begin

p:=1; / / задаем начальное значение для произведения

read (x); / / вводим первое число последовательности

y:=y + x; p:=p * x;

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

y:=y + x;

p:=p * x;

read (x); / / вводим следующее число

end;

writeln (' Сумма чисел последовательности = ', y); / / выводим ответ

write (' Произведение чисел последовательности = ', p);

end.