ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ.ЗАРАНЕЕ СПАСИБО! дано натуральное число n.найти произведение нечетных цифр числа. верно ли, что произведение числа является трехзначным числом.

program msd;uses crt;var a,l,proiz,b,i:LONGINT;beginclrscr;readln(a);proiz:=1;while true do beginl:=a mod 10;a:= a div 10;if odd(l) = true thenproiz:=proiz*lelseb:=b+1;i:=i+1;if a = 0 then break;end;if b = i then writeln('0')elsewriteln(proiz);if (proiz>99) and (proiz<1000) then writeln('Da')else writeln('Net');ReADKeY;eND.