Question

请用Free Pascal解答以下3道题。请答案简单一点，

甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙二人，所分给得数与各人已有的数相同；接着由乙分给丙、甲，分发同前；再有丙分钱给甲、乙，分发亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。求原先各人的钱数分别是多少？

Answer 1

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.