1. Определить значение переменной после выполнения фрагмента алгоритма:
S:=24;
m:=3456;
while s>10 do begin
m:=m mod 10;
S:=s-m;
end;
S:=S+m;
write (m);