Вот ещё один странный экземпляр. Оригинал кода:## Код:
```
LOOP
      IF tmp = dragLi THEN IF prev = NIL THEN w.SetFirstLine (dragLi.next) ELSE prev.next := dragLi.next END; EXIT END;
      prev := tmp; tmp := tmp.next;
   END; (* loop *)
```
Схема:## Код:
```
LOOP
   IF B THEN
      SomeCode;
      EXIT
   END;
   Step;
END;
```
С помощью WHILE:## Код:
```
WHILE ~B DO
   Step;
END;
SomeCode;
```
В общем-то, этот пример получается из примера первого поста подстановкой A = FALSE.