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

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; / / целочисленный тип данных

begin

writeln ('Введите число:') ;

readln (a) ; / / вводим число (можно больше трех знаков)

while a 0 do / / пока остались цифры в числе выполнять ...

begin

s : = s + (a mod 10) ; / / Отбираем последнюю цифру числа и прибавляем к сумме

a : = a div 10; / / Стираем последнюю цифру числа

end;

writeln ('Сумма цифр = ', s) / / выводим результат

end.