要编两个PASCAL程序

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

第一题：

var
a:array[0..4] of integer;
i,n,d,r:integer;
begin
readln(n);
for i:=0 to 4 do
a[i]:=n;
for i:=0 to 4 do
begin
d:=a[i] div 3;
r:=a[i] mod 3;
inc(a[(i+4) mod 5], d);
inc(a[(i+6) mod 5], d);
dec(a[i], r+2*d);
end;
for i:=0 to 4 do
write(a[i], ' ');
readln;
end.


第二题：

var
n:integer;

begin
readln(n);
while n > 0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln;
end

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息