Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12- Pascal(Паскаль)

VAR
  n,n_1,n_2,n_3,o,summa:word;
  n_s:string;
BEGIN
  write('Введите  трехзначное число:');
  readln(n);
  str(n,n_s);
  val(n_s[1],n_1,o);
  val(n_s[2],n_2,o);
  val(n_s[3],n_3,o);
  summa:=n_1+n_2+n_3;
  writeln('Сумма цифр равна ',summa);
END.