Напишите программу которая считает произведение цифр введенного натурального числа..помогите пожалуйста!

var  n, p: 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.Тест №1Число: 54321Произведение цифр = 120Тест №2Число: 54320Произведение цифр = 0