BEGIN
$ PL PROGRAM FOR NUMERAL AND UNKNOWN SYMBOL TESTING ----
CONST N = 1000;
INTEGER ARRAY A[50000];
BOOLEAN FOUND;
FOUND:= A[N] & N;
END.
$
$
$
