begin
var s: string;
var i, k: integer;
readln(s);
try
foreach c: char in s do
k += Byte.Parse(c);
writeln(k);
except
on System.FormatException do
writeln(Введи число -_-);
else writeln(Ошибка);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.