比赛代码 - COGS

比赛	20091102	评测结果	WAWWWWWWWA
题目名称	wordsa	最终得分	20
用户昵称	395899152	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-11-02 12:18:04

显示代码纯文本

program wordsa;
var
  n,i:integer;
  sj:array[1..5000]of integer;
  year1,year2:string;
begin
  assign(input,'wordsa.in');
  reset(input);
  assign(output,'wordsa.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do
    readln(sj[i]);
  readln(year1);
  readln(year2);
  write(n);
  close(input);
  close(output);
end.