В TurboPascal написать функцию, которая находит произведение цифр заданного числа. Пожалуйста-пожалуйста))))

Question

Юля Навнычко · Accepted Answer

function dp(n: integer): longint; 
begin 
 if n < 10 then dp := n else dp := n mod 10 * dp(n div 10); 
end; 
 
var 
 n: integer; 
begin 
 write('number? '); 
 readln(n); 
 writeln('digit product: ', dp(n)); 
end.

Анастасия Чиркова · Answer

var s,i:longint; 
begin 
readln(i); s:=1; repeat s:=i mod 10 * s; i:=i div 10 until i=0; writeln(s); readln 
end.

Наталия Килина · Answer

{ считывайте число в строковую переменную } 
 
function MulDigs(num : string) : integer; 
var ; 
begin 
 l := length(num); 
 while l > 0 do 
 begin 
 s := s * (ord(num[ l ]) - 48); { 48 -- код символа '0' } 
 l := l - 1; 
 end; 
 MulDigs := s; 
end;