function sum (a : integer) : integer;
var
s : integer;
begin
While a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
Result := s;
end;
function p (a : integer) : integer;
var
p : integer;
begin
p := 1;
While a > 0 do
begin
p := p * a mod 10;
a := a div 10;
end;
Result := p;
end;
|