小学数学题，真难做呀，郁闷!

我郁闷呀,还记得这是我老师在我刚学TP的时候给我的一道题目
  来让我看看
  
program ex2;
　var A,B,C:integer;
begin
　A:=50;B:=43;C:=13; {初始时每个小朋友所拥有的糖果数}
　A:=A div 3; B:=B+A;C:=C+A;{甲小朋友分糖果后，每个人拥有的糖果数变化情况}
　B:=B div 3; A:=A+B;C:=C+B; {乙小朋友分糖果后，每个人拥有的糖果数变化情况}
　C:=C div 3; A:=A+C;B:=B+C; {丙小朋友分糖果后，每个人拥有的糖果数变化情况}
　writeln('A=',A,'B=',B,'C=',C); {输出结果}
　readln;
end.

3份的数量又没有限制阿 没说一定一样嘛