Найти произведение чисел задонного четырехзначного числа n

Может, цифр?

Var n, pr:longint;

Begin

readln (n) ;

pr:=1;

while (n>0) do

begin

pr*=n mod 10;

n:=n div 10;

end;

writeln (pr) ;

End.

Вариант без цикла (только для четырехзначных чисел) :

Var n, n1, n2, n3, n4:longint;

Begin

readln (n) ;

n1:=n div 1000;

n2:=n div 100 mod 10;

n3:=n div 10 mod 10;

n4:=n mod 10;

writeln (n1*n2*n3*n4) ;

End.