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

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)