отыскать творенье чисел задонного четырехзначного числа n

Может, цифр?

Var n,pr:longint;
Begin
readln(n);
pr:=1;
while (ngt;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.