比赛代码 - COGS

比赛	十一中校庆欢乐赛	评测结果	AAAAAAAAAA
题目名称	money	最终得分	100
用户昵称	苏轼	运行时间	0.002 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-23 18:37:21

显示代码纯文本

var
  i,n,a,b:longint;
  s:double;
begin
  assign(input,'dog.in');
  assign(output,'dog.out');
  reset(input);
  rewrite(output);
  read(n);
  s:=0;
  for i:=1 to n do
    begin
      read(a,b);
      s:=s+a*b/10;
    end;
  writeln(s:0:2);
  close(input);
  close(output);
end.