Ответ:

program Dobutok;

var a,b, c, d, n: integer;

begin

write(‘Введіть 4-цифрове ціле число n=’);

readln(n);

a:= n div 1000;

b:= (n mod 1000) div 100;

c:= (n mod 100) div 10;

d:= n mod 10;

writeln(‘Добуток цифр числа n=’, a*b*c*d);

end.