Держи прогу
Объяснение:
Program summa;
var x, S: integer;
begin
readln(x);
s:=(x div 10)+(x mod 10);
writeln('Сумма цифр числа ', x, ' = ', S);
end.
