Напишите код на Паскаль Найти произведение цифр заданного целого четырехзначного числа.

​

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.