написать программу на Паскале: "ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит"

var

a, c : integer; / / объявляем переменные целочисленного типа.

begin

c:=1;

writeln ('введите последовательность натуральных чисел, окончание ввода 0'); / / вывод строки.

repeat / / начало цикла.

read (a); / / считываем значение, введенное с клавиатуры.

if a 0 then / / если текущее число последовательности не ноль.

c : = c * a; / / считаем произведение чисел.

until a=0; / / условие выхода из цикла.

write ('Произведение всех чисел введенной последовательности равно: ', c); / / вывод строки.

end.