## Код:
```
PROCEDURE UnwindedLoop (from, to, count);
VAR c: INTEGER;
BEGIN
   c := cound DIV 8;
   WHILE c > 0 DO
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      to^ := from^; INC (from);
      DEC (c)
   END;
   c := count MOD 8;
   WHILE c > 0 DO
      to^ := from^; INC (from);
      DEC (c)
   END
END UnwindedLoop;
```
Прыжок в середину "развёрнутого" цикла заменён на дополнительный цикл по остатку от деления. По сравнению с Duff's device больше на 1..8 проверок.