Вычислить произведение цифр в трехзначном числе m. p.s. в программе pascal

Var
  n,p:integer;
begin
  Write('Введите натуральное трехзначное число: ');
  Read(n);
  p:=(n mod 10); { младшая цифра }
  n:=n div 10; { отбросили младшую, число стало двухзначным }
  p:=p*(n mod 10)*(n div 10);
  Writeln('Произведение цифр числа равно ',p)
end.

Тестовое решение:
Введите натуральное трехзначное число: 946
Произведение цифр числа равно 216