Пример:## Код:
```
LOOP
      IF tmp = NIL THEN
         EXIT;
      ELSIF tmp = li THEN
         IF prev = NIL THEN
            w.firstLine := li.next;
         ELSE
            prev.next := li.next;
            LOOP
               tmp := tmp.next;
               IF tmp = NIL THEN EXIT END;
               DEC (tmp.idx);
            END; (* loop *)
         END; (* if prev *)
         EXIT;
      END; (* if tmp *)
      INC (py, tmp.height); prev := tmp; tmp := tmp.next;
   END; (* loop *)
```
## Код:
```
WHILE (tmp # NIL) & (tmp # li) DO
      INC (py, tmp.height); prev := tmp; tmp := tmp.next;
   END;
   IF tmp # NIL THEN
      IF prev = NIL THEN
         w.firstLine := li.next;
      ELSE
         prev.next := li.next;
         tmp := tmp.next;
         WHILE tmp # NIL DO
            DEC (tmp.idx);
            tmp := tmp.next;
         END;
      END; (* if prev *)
   END; (* if found tmp = li *)
```
