Найти произведение цифр четырехзначного целого числа — Pascal(Паскаль)

program z_number;

uses crt;

var
  n, pr: word;

begin
  clrscr;
  repeat
    writeln('Введите четырехзначное целое число');
    readln(n);
    if (n < 999) or (n > 10000) then
      writeln('Число должно быть четырехзначным');
  until (n > 999) and (n < 10000);
  pr := 1;
  while n <> 0 do
  begin
    pr := pr * (n mod 10);
    n := n div 10;
  end;
  writeln('Произведение цифр данного четырехзначного числа ', pr);
  readln;

end.