INPUT "vvedite chislo ",a
p=1
DO
p=p*(a MOD 10)
a=a\10
LOOP UNTIL a=0
PRINT"proizvedenie cifr=";p