определите значение переменой s после выполнения следующего фрагмента программы :
s:=24;
m:=3456;
while s} знак больше* 10 do
begin
m:=m mod 10;
s:=s-m
end;
s:=s+m;
Заранее спасибо)))