Определите значение переменных s после выполнения фрагмента программы при указанных значениях a:
p:= a;
s:= 0;
while p > 0 do
begin
s:= s +p mod 10;
p:= p div 10;
end;