Ответ:

program Chernovik;

var a,p: integer;

begin

p:=1;

read(a);

while a>0 do

begin

p:=p*a mod 10;

a:=a div 10

end;

write (p)

end.

Объяснение:

p - произведение цифр числа, первоначально равно 1, т.к. от умножения на 1 число не изменяется

Ввод числа

Цикл с предусловием (пока число больше 0):

1) считаем произведение последней цифры числа

2) отбрасываем последнюю цифру числа

Вывод произведения цифр числа

div - целочисленное деление

mod - остаток от целочисленного деления

Программа работает для a>0