Составить программу для последовательного произведения вводимой с клавиатуры целых чисел предусмотреть выход из произведения при вводе - 100

var

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

begin

c:=1;

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

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

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

if a - 100 then / / если число не равно - 100, то считаем произведение.

c : = c * a;

until a = - 100; / / если число равно - 100, то выходим из цикла.

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

end.