pascal题目描述某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。

这个……很多书上的例题啊，抄下来给你
program Wu_ge_ji_you_Fen_tang_kuai;
var
a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
a:=a div 3; b:=b+a; e:=e+a;
b:=b div 3; a:=a+b; c:=c+b;
c:=c div 3; b:=b+c; d:=d+c;
d:=d div 3; c:=c+d; e:=e+d;
e:=e div 3; d:=d+e; a:=a+e;
writeln(a,b,c,d,e);
end.

啧啧啧啧啧啧啧啧啧啧啧啧