Question

Сделайте ПОЖАЛУЙСТА. Очень нужно. Заранее СПАСИБО!!!)

Answer 1

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(n mod 10+n div 100+(n div 10) mod 10)
end.

Пример
n= 158
14