NEERC/business/check.dpr

   1 {$r+,q+,o-}\r
   2 {$apptype console}\r
   3 uses\r
   4         TestLib, SysUtils;\r
   5 \r
   6 var\r
   7         ja, pa: integer;\r
   8         n, m: integer;\r
   9 \r
  10 begin\r
  11         ja := ans.readlongint();\r
  12         pa := ouf.readlongint();\r
  13         if (ja <> pa) then\r
  14                 quit(_wa, format('Expected: %d, found: %d', [ja, pa]));\r
  15 \r
  16         n := inf.readlongint();\r
  17         m := inf.readlongint();\r
  18         quit(_ok, format('n = %d, m = %d, ans = %d', [n, m, ja]));\r
  19 end.\r