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

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