这道pascal编程题怎么求?

var i:integer; sum:double; begin sum:=200; for i=1 to 100 do begin sum:=sum + sum*i*0。045; if(sum>500)then begin writeln(inttostr(i) + '年后该县年工业总产值将超500亿元!'); break; end; end; end;