[dr. F.I.N.]

Код:

function SumDig(Value: Integer): Longint;
  var
    i: Byte;
    TmpVal: String;
  begin
    TmpVal := IntToStr(Value);
    Result := -Ord('0') * Length(TmpVal);
    for i := 1 to Length(TmpVal) do
    Result := Result + Ord(TmpVal[i]);
  end;