judge.pas

ACM国际大学生程序设计竞赛(英文全称:ACM International Collegiate Programming Contest（ACM-ICPC或ICPC）是由美国计算机协会（ACM）主办的

{*
 * Judging program for "Random Number"
 *
 * Copyright Chen Mingrei (ZSUCPC 2001)
 * Date: May 10, 2001
 *
 * Comment: This program displays and checks the output of a program to see
 *          if it correct.  The following are checked:
 *
 *          1. no output
 *          2. extraneous output
 *          3. format error (invalid number)
 *
 *}

var
	InFile, OutFile, StdFile: Text;
  NoOutput: Boolean;

function Left(var S: string; N: Integer): string;
var
  Temp: string;
begin
  Temp := Copy(S, 1, N);
  while Length(Temp) < N do Temp := Temp + ' ';
	Delete(S, 1, N);
  Left := Temp;
end;

procedure Show;
var
	InStr, OutStr: string;
begin
	Reset(InFile);
  {$I-}
	Reset(OutFile);
	{$I+}
	NoOutput := IOResult <> 0;
	Write('Judging program for "Random Number"         Copyright Chen Mingrei (ZSUCPC 2001)');
	Writeln('Input: random.in