using System.Linq;
using static System.Console;
class Program
{
static void Main(string[] args)
{
// заданная строка
Write("Введите сообщения: ");
string s = ReadLine();
// Выведены те слова, которые содержат хотя бы одну цифру
string[] div = s.Split(' ', ',', '.', '-', '!', '?');
for (int i = 0; i < div.Length; i++)
{
int count = div[i].Where(x => char.IsDigit(x)).Count();
if (count.Equals(1))
{
WriteLine("Слова с цифрами: {0}: ", div[i]);
}
}
}
}
begin
readln(a);
s:=0;
While a>9 do
begin
s:=a mod 10;
a:=a div 10;
end;
s:=s+a;
writeln(s);
end.