Помогите пожалуйста
Вычислить произведение цифр в трехзначном числе 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