Question

Можете помочь с тестом по информатике?
readln: (a);
s:=0;
p:=a;
while p>0 do
begin
S:=S+p mod 10;
p:=p div 10;
end;
end.
1.Определите значение переменной S после выполнения фрагмента программы при а=23
2.Определите значение переменной S после выполнения фрагмента программы при а=109