С клавиатуры вводится произвольное натуральное число. Найти произведение нечётных цифр числа. Помогите срочно прошу !!!!!

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var p:=1;  while n>0 do begin    var d:=n mod 10;    if d.IsOdd then p*=d;    n:=n div 10    end;  Writeln('Произведение нечетных цифр числа равно ',p)end.Примерn= 53892Произведение нечетных цифр числа равно 135