В программе Алго, напишите программу для нахождения произведения цифр натурального числа 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.