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;