Дано трехзначное число. Найдите произведение его цифр. Использовать оператор условия или цикла запрещено

var a,a1,a2,a3:integer; begin read(a); a1:=a div 100; a2:=(a div 10) mod 10; a3:=a mod 10; writeln(a1*a2*a3); end.

Не знаю, может так: ввод х S=х mod 10 х= х div 10 S=S* x mod 10 x = x div 10 S=S*x или вот так скорее, вернее короче: ввод x S=x mod 10 * (x div 10) mod 10 * ((x div10) div10) mod 10 вывод S div 10 - делим число на 10 и берем целую часть (то что перед запятой, например 25/10=2,5, ответ 2) mod 10 - делим число на 10 и берем остаток (то что после запятой, например 23/10=2,3, ответ 3)