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

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.