比赛代码 - COGS

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

显示代码纯文本

var
  vans:extended;
  n,x,vzhe,i:longint;
begin
  assign(input,'dog.in');
  reset(input);
  assign(output,'dog.out');
  rewrite(output);
  readln(n);
  vans:=0;
  for i:=1 to n do
    begin
      readln(x,vzhe);
      vans:=vans+(x*vzhe/10);
    end;

  writeln(vans:0:2);
  close(input);
  close(output);
end.