[生活] pascal求助= =

http://wenwen.soso.com/z/q210338113.htm

program pp(input,output);

var

i:integer;

sum,k:real;

begin

k:=50;

sum=100;

for i:=1 to 19do

begin

sum:=sum+2*k;

k:=k / 2;

end;

write(sum);

end.

好像一开始的错了。这个是对的。忘了路程是两倍了。
=====================================
好吧.....我無力了......
網路上沒有......OTL