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

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