PascalABC.NET
begin
var n := ReadInteger('n =');
Println('Сумма цифр равна', n div 10 + n mod 10)
end.
