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

var

n, pr: integer;

begin

/ / Организовываем ввод

write ('Введите трехзначное число ');

readln (n);

//вычисляем произведение

pr : = (n mod 10) * ((n div 10) mod 10) * (n div 100);

/ / Организовываем вывод

writeln ('Произведение цифр числа ', n,' равно ', pr);

end.