比赛代码 - COGS

比赛	NOIP2008集训模拟1	评测结果	WWWWWWWWWW
题目名称	地精贸易	最终得分	0
用户昵称	MayLava	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-10 11:21:03

显示代码纯文本

program MayLava;

var
 n,m:longint;

procedure start;
 var
  f:text;
  i:longint;
 begin
  assign(f,'goblin.out');
  rewrite(f);
  writeln(f,33);
  writeln(f,'Buy 3 from Alliance');
  writeln(f,'Buy 1 from Horde');
  writeln(f,'Buy 0');
  writeln(f,'Buy 1 from Alliance');
  writeln(f,'Buy 9 from Horde');
  close(f);
 end;

BEGIN
 start;
END.