ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ. ЗАРАНЕЕ СПАСИБО! Дано натуральное…

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.