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

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.