Ребяят, нужно найти сумму цифр трехзначного числа и записать в паскале

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-вторые два числа

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