maybe skip comment is more robust .
## Код:
```
PROCEDURE Scan (VAR s: TextMappers.Scanner);(* skip comment*)
      VAR 
      level:INTEGER;
   BEGIN
      s.Scan;
      IF s.type = TextMappers.char THEN
         IF s.char = "(" THEN
            IF s.rider.char = "*" THEN
               s.rider.Read;
               level:=1;s.rider.Read;
               REPEAT 
                  IF s.rider.char = '(' THEN  s.rider.Read; IF s.rider.char = '*' THEN INC(level); s.rider.Read; END;
                  ELSIF s.rider.char = '*' THEN s.rider.Read; IF s.rider.char = ')' THEN DEC(level);s.rider.Read; END;
                  ELSE s.rider.Read
                  END;
               UNTIL (level = 0) OR s.rider.eot;
               Scan(s)
            END
         END
      END   
   END Scan;
```
