Составить программу Pascal : Найти произведение цифр заданого 3х значного числа .

Question

Составить программу Pascal :
Найти произведение цифр заданого 3х значного числа .

Answer 1

var

  a : integer;

begin

  read (a);

  writeln ((a mod 10) * (a div 100) * (a div 10 mod 10));

end.