Выделяем нужный диапазон цифр, жмем вставка/диаграмма/....
Далее заполняем меню и жмем готово
<span />
Вот решения на с++.
Оба делал через операторы if.
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.