pascal编程!今天就要!

program xiaoqiu;
var b:integer;
a,c:real;
begin
a:=100;
c:=100;
for b:=2 to 3 do{第一次落地时走过路程为100,也就是a,所以从第2次开始循环}
begin
c:=c/2;{弹回高度的一半}
a:=a+c*2;{小球弹起来还会落下,所以c*2}
end;
writeln(a:10:4);
readln;{暂停看结果}
end.
如果不明白此题,最好画个图,看起来会更明白.