NEERC/yield/check.dpr

   1 (*\r
   2     Checker for NEERC'2006 Problem Y: Yield\r
   3     (C) Roman Elizarov\r
   4 *)\r
   5 \r
   6 {$O+,Q+,R+}\r
   7 {$APPTYPE CONSOLE}\r
   8 \r
   9 uses\r
  10   TestLib, SysUtils;\r
  11 \r
  12 var\r
  13   ja, pa: Integer;\r
  14 begin\r
  15   ja := ans.ReadInteger();\r
  16   pa := ouf.ReadInteger();\r
  17 \r
  18   if not ouf.SeekEof then \r
  19     Quit(_PE, 'Extra information in the output file');\r
  20 \r
  21   if ja <> pa then\r
  22     Quit(_WA, Format('%d instead of %d', [pa, ja]))\r
  23   else\r
  24     Quit(_OK, Format('%d', [ja]));\r
  25 end.\r