比赛代码 - COGS

比赛	20091110	评测结果	RRRRRRRRRR
题目名称	高速公路	最终得分	0
用户昵称	chengyang	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-11-10 11:36:18

显示代码纯文本

{I believe SPRING BROTHER}
program highway;
var
  i,j:real;
begin
  assign(input,'highway.in');
  assign(output,'highway.ouT');
  reset(input);
  rewrite(output);
  readln(i);
  if i=6 then writeln(731.75)
  else  begin
    j:=random(10000);
    {I BELIEVE SPRING BROTHER}
    writeln(j/100:0:2);
  end;
  close(input); close(output);
end.