решить в паскале найти произведение цифр четырёхзначного числа

var  p: longint;  k, m, n, i: integer;begin  Write('Введите целое четырехзначное число: ');  Readln(n);  n := Abs(n); { вдруг отрицательное введут? }  p := 1;  for i := 1 to 4 do  begin    m := n mod 10;    n := n div 10;    p := p * m  end;  Writeln('Произведение цифр в числе равно ', p);end.Тестовое решение:Введите целое четырехзначное число: 1234Произведение цифр в числе равно 24