Составьте программку в ПАСКАЛЬ, которая запрашивает ввод целых положительных чисел и

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