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

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