С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 0. Требуется найти произведение нечетных чисел из введенной последовательности. Решение с помощью while, подробно.

var  a,p: integer;begin  p:=1;  a:=1;  while a<>0 do begin  write('Введите a:');readln(a);  if a mod 2<> 0 then p:=p*a;  end;  writeln('произведение нечетных: ',p);end.