帮我编一道题目（Pascal语言）

var
x,ans:real;
t:integer;
begin
ans:=0;
x:=100.0;
for t:=1 to 20 do
begin
ans:=ans+x;
x:=x/2;
ans:=ans+x;
end;
writeln(ans);
end.
题目有歧义呢,弹20次是指第20次落地,还是指第20次落地后弹起到最高点,或是第21次落地不再弹起
现在这个代码是指第20次落地后弹起到最高点
再问： 应该是指20次落地吧
再答： 那么
var
x,ans:real;
t:integer;
begin
ans:=0;
x:=100.0;
for t:=1 to 20 do
begin
ans:=ans+x;
x:=x/2;
ans:=ans+x;
end;
ans:=ans-x;
writeln(ans);
end.