Question

懂Pascal语言的来

有三个小朋友分糖果，甲有50个，乙有43个糖果，丙有13个。从甲开始将他的糖果分成三份，一份给自己，2份给乙丙。多余的糖自己吃掉（这句话不太明白，那里有多余的糖果）。乙丙也这样做。最后他们各有多少的糖果。
把这个题目按照Pascal语言的格式写，要求最后能用程序算出答案。
各位大哥请帮帮我，否则我要被老师站外面啦！
（分不多，请各位见谅）

Answer 1

很简单的啦
多余的糖自己吃掉的意思，我告诉你
比如说甲有50个糖，平均分成3份，每份亮源是16个，还剩余2个没有办法平均分配，那2个就自己吃了
不过你确信没记错？多余的糖是自己留着还是自己吃掉？
如冲猛果是自己吃掉的话，程序如下：
var
a,b,c,d,e,f:integer;
begin
a:=50;
b:=43;
c:=13;
d:=a div 3;
e:=b div 3;
f:=c div 3;
a:=d+e+f;
b:=d+e+f;
c:=d+e+f;
writeln('a:='敬判态,a);
writeln('b:=',b);
writeln('c:=',c);
end.
如果是剩余的糖自己留着，程序如下
var
a,b,c,d,e,f,g,h,i:integer;
begin
a:=50;
b:=43;
c:=13;
d:=a div 3;
e:=a mod 3;
f:=b div 3;
g:=b mod 3;
h:=c div 3;
i:=c mod 3;
a:=d+e+f+h;
b:=d+f+g+h;
c:=d+f+h+i;
writeln('a:=',a);
writeln('b:=',b);
writeln('c:=',c);
end.

Answer 2

var
a,b,c,d,e,f:integer;
begin
a:=50;
b:=43;
c:=13;
d:=a div 3;
e:=b div 3;
f:=c div 3;
a:=d+e+f;
b:=d+e+f;
c:=d+e+f;
writeln('a:=',a);
writeln('b:=',b);
writeln('c:=',c);
end.
这拆侍题山御族我初一时做的，5年逗弊了啊

Answer 3

var a,b,c:longint;
begin
a:=50;b:=43;c:=13;
inc(b,a div 3);inc(c,a div 3);a:=a div 3;
inc(a,b div 3);inc(c,b div 3);b:=b div 3;
inc(b,c div 3);inc(a,c div 3);c:=c div 3;
writeln('a='纯碧,a,'迹扰 '姿裤旦,'b=',b,' ','c=',c);
end.