Составьте программку для вычисления суммы цифр данного трехзначного числа.На паскале

Var
  n:integer;
 
begin
  Write('n = '); Read(n);
  Writeln(n div 100+(n div 10) mod 10+n mod 10)
end.

Объясненья.
n div 100 дает первую цифру: итог разделенья нацело числа на 100.
(n div 10) mod 10 дает вторую цифру: вычисляется итог деления нацело числа на 10 и от него берется остаток разделения на 10.
n mod 10 дает третью цифру: остаток целочисленного дробления числа на 10.