Noip2004T1 津津的储蓄计划

题目：	津津的储蓄计划
来源：	Noip2004T1
题目大意：	每次加300块钱，每次减x块钱，如果剩的大于100则把整百的存起来，如果剩的小于  0则输出-i，12次后输出存起来的*1.2与剩下的
数据范围：	X<=350
样例：	290  230  280  200  300  170  340  50  90  80  200  60	-7
做题思路：	根据题意模拟就好
知识点：	模拟

var
 sum,tot,i,x:longint;
begin
 fori:=1 to 12 do
  begin
  inc(sum,300);
  readln(x);
  dec(sum,x);
   ifsum<0 then break;
  tot:=tot+sum div 100;
  sum:=sum mod 100;
  end;
 ifsum<0 then writeln('-',i)
  elsewriteln(sum+tot*100*1.2:0:0);
end.

题目来源： http://yuanti.tyvj.cn:8080/Problem_Show.asp?id=1046