PROCEDURE MASIN(T:STATE; D:DELTA);
BEGIN
    READ(X);
    WHILE X<>2 DO
       BEGIN
          T:= D[T,X];
          READ(X);
       END;
    WRITELN;
    IF T=Q0 THEN WRITELN('ACCEPT')
            ELSE WRITELN('REJECT');
END;