uses crt;
var n:integer;
function prod(x:integer):boolean;
var st:string;
p,y,code:integer;
begin
str(x,st);
p:=1;
for i:=1 to length(st) do begin
val(st[i],y,code);
p:=p*y;
end;
prod:=p;
end;
begin
clrscr;
readln(n);
write(prod(n));
readkey;
end.
Следующий вариант
uses crt;
function Pr(n:longint):longint;
begin
if n<10 then Pr:=n
else Pr:=Pr(n div 10)*(n mod 10);
end;
var n:longint;
begin
clrscr;
write('n=');
readln(n);
write('Proiz cifr=',Pr(n));
readln
end.