Смотри, тут всё просто: нужно разделить число на цифры и перемножить их.
В Pascal это можно сделать так:
program DigitProduct; var num, digit1, digit2, digit3, product: integer; begin readln(num); digit1 := num div 100; digit2 := (num div 10) mod 10; digit3 := num mod 10; product := digit1 * digit2 * digit3; writeln(product); end.
Вводишь трехзначное число, программа вычисляет произведение его цифр.