比赛代码 - COGS

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

显示代码纯文本

var
a,b:array[1..10000]of longint;
i,j,m,n:longint;
t,s:extended;

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