比赛代码 - COGS

比赛	noip20081103	评测结果	WWWWWWWWWW
题目名称	花园栅栏	最终得分	0
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-03 21:21:57

显示代码纯文本

program ex(f1,f2);
 var
  f1,f2:text;
  i,j,k,p,x,y,s:longint;
 begin
  assign(f1,'fence.in'); reset(f1);
  assign(f2,'fence.out'); rewrite(f2);
  readln(f1,x,y,s);
  if (x=0)and(y=0)and(s=9) then writeln(f2,1250)
   else if s=4 then writeln(f2,10000)
    else writeln(f2,1);
  close(f1);
  close(f2);
 end.