Adding some more judges, here and there.
[and.git] / NEERC / central / check.dpr
blobf254c0dd0a7ee99a7d2da21ef1b0206e34fc891a
1 uses\r
2         testlib;\r
3 var\r
4         n: longint;\r
5         s: string;\r
6 begin\r
7         n := ouf.readlongint;\r
8         ouf.nextline;\r
9         s := ouf.readstring;\r
10         if (n = 0) then\r
11                 quit(_ok, s);\r
12         if (n = 1) then\r
13                 quit(_wa, s);\r
14         if (n = 2) then\r
15                 quit(_pe, s);\r
17         quit(_fail, s);\r
18 end.