Что-то не очень верно записана задача
что за сумма кодов?
количество символов в слове это команда length
к примеру
var
S : String;
begin
ReadLn(S); // пишем байт
WriteLn('"', S, '"');
WriteLn('Длина = ', Length(S));
end<span>.
</span>
если надо сумму цифр которыми кодируются русские буквы на клавиатуре, то таблица в прикрепленном файле, думаю не составит труда написать простейшую программку для сложения
Минимальное основание 10, потому что там "9", а девятка это максимум среди чисел. (0,1,2,3,4,5,6,7,8,9.)
<span>Компью́терная гра́фика (также маши́нная графика) — область деятельности, в которой компьютеры используются в качестве инструмента как для синтеза (создания) изображений, так и для обработки визуальной информации, полученной из реального мира.
</span>
var
a,b: integer;
begin
writeln('Введите два числа: ');
read(a,b);
writeln('Их сумма: ',a+b,'; Их разность: ',a-b,'.');
<span>end.</span>