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

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