Написать программу нахождения суммы цифр трёхзначного числа)напишите пожалуйста!)

Question

Написать программу нахождения суммы цифр трёхзначного числа)напишите пожалуйста!)

Answer 1

Var  iNum: integer;
begin
  readln(iNum);
  writeln((iNum mod 10) + (iNum div 100 mod 10) + (iNum div 100));
end.