Ответ:

• var p, n: integer;
• begin
• readln(n);
• p := 1;
• while n <> 0 do
• begin
• if (n mod 10)<>0 then p := p * (n mod 10);
• n := n div 10;
• end;
• writeln(p);
• end.

Пример работоспособности: