比赛代码 - COGS

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

显示代码纯文本

program cogs956;
var
   a,b,n,i:longint;
   ans:double;
procedure init;
begin
     assign(input,'dog.in');reset(input);
     assign(output,'dog.out');rewrite(output);
end;
procedure main;
begin
     readln(n);
     for i:=1 to n do
     begin
          readln(a,b);
          ans:=ans+a*(b/10);
     end;
     writeln(ans:0:2);
end;
begin
    init;
    main;
end.//complete by chouyi 20141021