Составить программу вычисления суммы цифр двухзначного числа "a".Значение "а",введите с клавиатуры.ПОМОГИТЕ!!!Срочно надо(Буду вам очень признательна *_*

Спасибо большое)

должно работать и для двухзначного и для 3ехзначного и для 99999значногоvara,sum:integer;beginreadln(a);while a>0 dobeginsum:=sum+a mod 10;a:=a div  10;end;writeln(sum);end.

Pascal ABCVarA:integer;BeginWrite('A = ');Read(A);Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))End.