Дано натуральное число n. Определить сумму цифр во второй половине числа и сумму цифр в первой половине числа n. (Пояснение к занятию: при решении задач целочисленной арифметики используются операторы цикла, операции mod и div.)
While n > 0 do begin S := S + n mod 10; n := n div 10; end;а