program z_number;
uses crt;
var
n, pr: word;
begin
clrscr;
repeat
writeln('Введите четырехзначное целое число');
readln(n);
if (n < 999) or (n > 10000) then
writeln('Число должно быть четырехзначным');
until (n > 999) and (n < 10000);
pr := 1;
while n <> 0 do
begin
pr := pr * (n mod 10);
n := n div 10;
end;
writeln('Произведение цифр данного четырехзначного числа ', pr);
readln;
end.