Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
Кириллица - это Юникод, а в нем каждый символ занимает два байта.
2 * 5 = 10 байт = 80 бит
Ну очень плохо видно!, заного сфотай!
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
writeln(x);
end.