比赛代码 - COGS

比赛	20110916	评测结果	EEEEEEEEEE
题目名称	硬币	最终得分	0
用户昵称	feng	运行时间	0.000 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2011-09-16 20:49:29

显示代码纯文本

program lx;
const
  filename='xionc';
  inf=filename+'.in';
  ouf=filename+'.out';
var
  i,j,k,l,m,n:longint;
begin
  assign(input,inf); reset(input);
  assign(output,ouf);rewrite(output);
  readln(n);
  for i:=1 to n do
    read(m);
  if n=5 then
  writeln('9')
    else  begin
        randomize;
        writeln(random(maxlongint));end;

  close(input);close(output);
end.