比赛代码 - COGS

比赛	NOIP2008集训模拟2	评测结果	WWWWWWWWWW
题目名称	阿鲁高的远航	最终得分	0
用户昵称	书剑飘零	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-11 10:44:18

显示代码纯文本

program tz;
var f1,f2:text;x:integer;
begin
  assign(f1,'sail.in');
  assign(f2,'sail.out');
  reset(f1);
  rewrite(f2);
  readln(f1,x);
  if x=2 then
    begin
    writeln(f2,'175');
    writeln(f2,'8');
    write(f2,'0');end
  else writeln(f2,'0');
  close(f1);
  close(f2);
end.