Мне нужно написать программу которая будет считать произведение цифр заданного числа. Как это сделать.

s := 1;
while n > 0 do
   begin
      s := s * (n mod 10);
      n := n div 10
   end;
writeln(s);