请用Free Pascal解答以下3道题.

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/07/05 05:36:11

请用Free Pascal解答以下3道题.
甲、乙、丙三人共有24元钱,先由甲分钱给乙、丙二人,所分给得数与各人已有的数相同；接着由乙分给丙、甲,分发同前；再有丙分钱给甲、乙,分发亦同前.经上述三次分钱之后,每个人的钱数恰好一样多.求原先各人的钱数分别是多少?

var
x,y,z:integer;
begin
x:=8; y:=8; z:=8;
x:=x div 2; y:=y div 2; z:=x+y+z;
z:=z div 2; x:=x div 2; y:=x+y+z;
y:=y div2; z:=z div2; x:=x+y+z;
writeln(x:3,y:3,z:3);
End.

请用Free Pascal解答以下3道题. 请用Free Pascal解答以下3道题.我是一个小菜鸟. Free Pascal解答 free pascal的问题（用while语句解答）统计用free pascal 十六进制转换,请用free Pascal语言编写代码? 怎么用free pascal做这道题？ Free Pascal 一道简单的free pascal题目,各位free pascal大师解答一下吧. Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? free pascal练习题求解答急！求代码一道简单的FREE PASCAL 希望大牛来解答