дано натуральное число n найти произведение нечетных цыфр заданного числа.Пожалуйста Срооочно .Если можно схeму тоже составьте и сфоткайте

program asdasd;
    var n,r,i:integer;
begin;
    r:=1;
    read(n);
    for i:=1 to length(inttostr(n)) do
        if strtoint(inttostr(n)[i]) mod 2 = 1 then r*=strtoint(inttostr(n)[i]);
    write(r);
end.