var
p,n:integer;
begin
write('Введите число: ');
readln(n);
p:=1;
while n>0 do
p:=p*(n mod 10);
n:=n div 10;
end;
writeln('Произведение цифр: ',p);
end.
var
p,n:integer;
begin
write('Введите число: ');
readln(n);
p:=1;
while n>0 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
writeln('Произведение цифр: ',p);
end.