pascal编程!今天就要!

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