Пример ГК для задачи № 1.
0
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
880
XXXXXXXXXXXXXXXXXXX
if p(v610) then (if &uf('1*R;?@',&uf('Av610#1'))<>'' then &uf('1*R;?@',&uf('Av610#1')) else break fi/) fi
XXXXXXXXXXXXXXXXXXX
DEL
610
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if p(v610) then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
610
XXXXXXXXXXXXXXXXXXX
(v880/)
XXXXXXXXXXXXXXXXXXX
DEL
880
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
Идею можно использовать и для решения задачки № 2. ГК будет немного другой. Необходимо добавить статус экземпляра...