Блок схема объем четырехугольника

Пишу на Delphi (ObjectPascal):

function Summa(a,b:integer):string;
var a1,b1:integer;
begin   //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);

//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);

//выясняем что больше
if a1>b1 then         
   Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)         
else         
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;

Если СС системы счисления, то:

Двоичная:

126 = 1111110

Переводим целую часть 12610 в 2-ую систему последовательным делением на 2:

126/2 = 63, остаток: 0

63/2 = 31, остаток: 1

31/2 = 15, остаток: 1

15/2 = 7, остаток: 1

7/2 = 3, остаток: 1

3/2 = 1, остаток: 1

1/2 = 0, остаток: 1

126 = 1111110

Обратно:

Переводим 1111110 в десятичную систему:

1111110 = 1·2⁶+1·2⁵+1·2⁴+1·2³+1·2²+1·2¹+0·1 = 126

Восьмеричная:

126 = 176

Переводим целую часть 126 в 8-ую систему последовательным делением на 8:

126/8 = 15, остаток: 6

15/8 = 1, остаток: 7

1/8 = 0, остаток: 1

126 = 176

Обратно:

Переводим 1768 в десятичную систему:

176 = 1·8²+7·8¹+6·1 = 126

Шестнадцатиричная:

126 = 7E

Переводим целую часть 126 в 16-ую систему последовательным делением на 16:

126/16 = 7, остаток: 14, 14 = E

7/16 = 0, остаток: 7

126 = 7E

Обратно:

Переводим 7E в десятичную систему:

7E = 7·16¹+14·1 = 126

Как-то так)