比赛代码 - COGS

比赛	20091112练习	评测结果	WWWWWWWWW
题目名称	滑雪队	最终得分	0
用户昵称	打不死的羊	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-11-12 11:38:14

显示代码纯文本

program nar;
var
f1,f2:text;
n,i:longint;
begin assign(f1,'nar.in');
      assign(f2,'nar.out');
      reset(f1);rewrite(f2);
      randomize;
      readln(f1,n);
      for i:=1 to n-1 do
      readln(f1);
      readln(f1,n);
      writeln(f2,random(n+1));
      close(f1);close(f2);
end.