Задается положительное целое число n. нужно вывести произведение его цифр.

Var s,n:integer;
begin 
Readln(n); 
s:=1; 
repeat   
 s:=s*(n mod 10);   
n:=n div 10; 
until n=0; 
Writeln(s); 
Readln;
end.