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

var
  a,c : integer; // объявление переменных целочисленного типа.
begin
  c:=1;
  writeln (введите последовательность целых чисел, окончание ввода -100); // вывод строчки.
  repeat // начало цикла.
   read (a); // считываем введенное число.
   if a lt;gt; -100 then // если число не одинаково -100, то считаем творение.
      c := c * a;
   until a= -100; // если число одинаково -100, то выходим из цикла.
 write (Творенье всех чисел введенной последовательности одинаково: ,c); // вывод строки.
end.