REM to print the product of digit of input number DECLARE SUB pro (a) CLS INPUT "enter a multidigit number"; a CALL pro(a) END SUB pro (a) p = 1 WHILE a <> 0 r = a MOD 10 p = p * r a = a \ 10 WEND PRINT "product of digit="; p END SUB