Составить алгоритм и программу поиска всех цифр пятизначного числа нахождение, произведение и суммы всех цифр! заранее )

Program n1;
var a,d1,d2,d3,d4,d5: longint;
begin
readln(a);
d1:=a div 10000;
d2:=(a mod 10000) div 1000;
d3:=(a mod 1000) div 100;
d4:=(a mod 100) div 10;
d5:=a mod 10;
writeln('произведение: ',d1*d2*d3*d4*d5);
writeln('сумма: ',d1+d2+d3+d4+d5);
end.

Вот на паскале:
var a,b,s,p,i:integer;
begin
s:=0;
p:=1;
read(a);
for i:=1 to 5 do
begin
b:=a mod 10;
s:=s+b;
p:=p*b;
a:=a div 10;
end;
Writeln('Сумма: ',s);
Write('Произведение: ',p);
End.