Pascal【入门】分糖果

题目描述：

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

输入：

输入一行，五个整数。

输出：

输出一行，五个整数（分别表示5个小朋友的剩余糖果数）

样例输入：

1 2 3 4 5

样例输出：

2 1 2 3 2

代码实现：

var i,j,s,b,g,x:longint; a:array[0..100,0..100]of longint;
begin
      for i:=1 to 5 do
      begin