Дана непустая последовательность положительных целых чисел a1, a2, ... оканчивающаяся нулем. Получить a1, a1*a2, a1*a2*a3 ... 0 Решить, используя оператор until repeat либо while (паскаль)

program zz1;

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

begin

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

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

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

begin

y:=y * x; / / вычисляем произведение

writeln (' y = ', y); / / выводим ответ на экран

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

end;

end.