Пользователь вводит на натуральное число, программа должна рассчитать произведение цифр числа. 9 класс. Язык Паскаль. Прошу наберите программу, как это делается!!!))

var a,p:integer;beginwrite('a (>0) = ');readln(a);p:=1;while a>0 do begin p:=p*(a mod 10); a:=a div 10; end;writeln('p = ',p);end.Пример:a (>0) = 1385p = 120

Program pr_ch;Uses Crt;var n, pr: integer;beginwrite('Введите число: ');readln(n);pr := 1;while n > 0 do beginpr := pr * (n mod 10);n := n div 10end;writeln('Произведение чисел: ', pr);readln;end.