Впрограмме алго, напишите программу для нахождения произведения цифр натурального числа n, введенного с клавиатуры.

Программа написана на языке программирования Pascal

program z1;
var N,p,n1,i:integer;
begin
writeln('Введите число N');
readln(N);
p:=1;
for i:=1 to n do
if N>0
then begin n1:=N mod 10 ; p:=p*n1; N:=N div 10; end;
write('Произведение=',p);
end.