Найдите произведение цифр заданного k-значного числа)

program zz1;

var n, i, k, p:integer; / /задаем переменные целого типа

begin

write ('введите заданное к-значное число '); / /вводим заданное k-значное число с клавиатуры

read (n);

i:=1; / /задаем начальное значение для количества цифр

p:=1; / /задаем начальное значение для произведения

while n>0 do / /организуем цикл, пока цифры не закончатся

begin

k:=n mod 10; / /находим последнюю цифру

n:=n div 10; / /отбрасываем ее

p:=p*k; / /умножаем цифру на произведение

i:=i+1; / /увеличиваем количество цифр

end;

writeln ('произведение k-значного заданного числа = ', p); / /выводим ответ

end.