Verified answer

var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

Verified answer

var
  a, s: integer; // целочисленный тип данных

begin
writeln('Введите число:');
  readln(a); // вводим число (можно больше трех знаков)
  while a <> 0 do  // пока остались цифры в числе выполнять...
  begin
    s := s + (a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме
    a := a div 10; // Стираем последнюю цифру числа
  end;
  writeln('Сумма цифр = ', s) // выводим результат
end.