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

var
   a, i : integer;       // объявляем переменные целочисленного типа.
begin
   i := 1;  // необходимо, чтобы при подсчете творения не умножать на ноль.
   a := 1; 
   writeln (введите последовательность положительных чисел, окончание ввода - число 0:);
   while a lt;gt; 0 do          // начало цикла.
        begin
           readln (a);                 // считываем число, введенное с клавиатуры.
           if (a mod 2 gt; 0) then // если число нечетное, то считаем творение.
           i := i * a;
        end;
    write (Творенье нечетных чисел одинаково: , i);     //вывод ответа на экран.
end.