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

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