Паскаль(сумма произведений цифр)

[engl]

Нужно найти сумму произведений цифр для десятичных и целых чисел.
Вот мой код,он для целых,что нужно добавить в него,чтобы можно было считать и десятичные

program zxc;
uses CRT;
var
a:array[1..100] of integer;
s,z,p,i,n,d:integer;
begin
  clrscr;
  write('длина массива');
  readln(n);
  write('введите ',n,'  элемента массива >0 ');
  for i:=1 to n do
  read(a[i]);
  writeln('массив a:');
  for i:=1 to n do
  write(a[i]:5);
  p:=0;
  for i:=1 to n do
   begin
     z:=a[i];
     s:=1;
      while z<>0 do
       begin
	d:=z mod 10;
	z:=z div 10;
	s:=s*d;
       end;
     p:=s+p;
   end;
  writeln;
  writeln('сумма произведений цифр=',p);
end.

[Seil_29]

Десятичных?
Всмысле 10,12115454?

[engl]

Сообщение от Seil_29

Десятичных?
Всмысле 10,12115454?

Угу,они самые