比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	EEEEEEEEEE
题目名称	money	最终得分	0
用户昵称	黑駒	运行时间	0.009 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-23 19:54:54

显示代码纯文本

var n,i,j,k:longint;
  ans,a,b,t:real;

begin
  assign(input,'money.in');
  assign(output,'money.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
  begin
    readln(a,b);
    t:=(a*b)/10;
    ans:=ans+t;
  end;
  writeln(ans:0:2);
  close(input);
  close(output);
end.