题目:某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜
指出下列程序错误
program ex3;
var y,e,s,z:real;
begin
y:=z*0.5+0.5;
e:=(z-y)*0.5+0.5;
s:=(z-y-e)*0.5+0.5;
z:=y+e+s;
write (z:3);
write (y:3);
end.