> -- Илья Ермаков писал(а):
> Ну и можно вообще без начальных IF-ов и разбора ситуаций, сразу циклом. В конце, конечно, IF.
А без IF в конце? Так не сработает? Ну и не против увидеть, "разбор правильного решения".
## Код:
```
res := -1;
 i := 0;
 WHILE (a[i] # -1) & (res = -1) DO 
     IF i > 0 & (a[i] - SIZE(anyptr) - SIZE(INTEGER) > a[i - 1]) 
                OR (a[i] - SIZE(anyptr) - SIZE(INTEGER) >= 0)
           res := a[i] - SIZE(INTEGER)
     END;
     INC(i) 
 END;
```
