Определите значение переменной S после выполнения фрагмента программы при указанных значениях a. Нужно подробное решение, а не только заполнить таблицу, последние p,s,p>0 это столбцы таблицы
p:=а;
s:=0;
while p>0 do
begin
s:= s + p mod 10
p:= p div 10
end;
а=109
p s p>0