Для нахождения произведения цифр четырехзначного числа на языке Pascal можно воспользоваться следующим кодом:

program MultiplicationOfDigits;
var
number, digit, product: integer;
begin
write${}^{\prime }Enterafour-digitnumber{:}^{\prime }$;
readln$number$;
product := 1;
while number <> 0 do
begin
digit := number mod 10;
product := product * digit;
number := number div 10;
end;
writeln${}^{\prime }Theproductofthedigitsofthenumberis{:}^{\prime },product$;
readln;
end.

Пользователю нужно будет ввести четырехзначное число, а затем программа найдет произведение его цифр и выведет результат на экран.