Написать программу с рекурсивной функцией, вычисляющей произведение цифр заданного натурального числа n — Pascal(Паскаль)

Program xa;
var
  chisl:longint;
 
function prouzv(chislo:longint):longint;
begin
  if chislo<>0 then
    prouzv:=(chislo mod 10)*prouzv(chislo div 10)
  else
    prouzv:=1;
end;
 
begin
  Writeln('VVedute chislo');
  Write('Chislo = ');
  readln(chisl);
  chisl:=abs(chisl);
  Writeln('prou3vedenue ego L/ufr= ',prouzv(chisl));
  readln
end.