Напишите алгоритм, который по введенному двухзначному числу выводит сумму всех цифр этого числа. (В Кумире)

Const n=12;
var
  a:array[1..n] of integer;
  i,j,t:integer;
begin
  Randomize;
  Writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i],' ')
  end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-i do
      if a[j]>a[j+1] then
      begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
  Writeln('Отсортированный массив:');
  for i:=1 to n do Write(a[i],' ');
  Writeln
end.

Пример:
Исходный массив:
-6 -11 -1 -24 -15 23 14 -13 -5 3 17 -21
Отсортированный массив:
-24 -21 -15 -13 -11 -6 -5 -1 3 14 17 23

1.  Словарь в компьютере или другом электронном устройстве.
2. Если переводить текст например с ангийского то некоторые слова надо переставлять и это иногда затрудняет, но всё же можно разобраться.
3. Словарь переводит отдельные слова в именительном падеже, а система перевода переводит слова, если встречаются выражения - переводит их не отдельными словами, а целиком. Кроме того, система перевода выставляет нужные падежи, правильно выставляет слова и старается подобрать набор слов наиболее литературно, но не всегда удачно.