Ответ:

var

a,b:integer;

begin

   a:=0;

   b:=115;

   while b>0 do

   begin

       a:=a + b mod 10;

       b:=b div 10;

   end;

   writeln('a=',a);

   writeln('b=',b);

end.

В результате выполнения выведется:

a=7                                                                                                 

b=0