1

Ввести 4 цифры года для удаления заказов до указанного года 
IF
if p(v901) then '1' fi
ADD
991

'%1'

ADD
111

&uf('+7W2#',,,,,,&uf('+N901'),,,,,,,,,),,,,&uf('+7W1#1')

DEL
1901
*


REPEAT
ADD
111

&uf('+7W5#',,,&uf('Av901#',,,,,g1,,,,,,,,)  )

ADD
1901

if &uf('Av991#1')='' or g5<>'' and &uf('Av991#1')<>'' and val(g5^Q.4)>=val(&uf('Av991#1')) then g5 fi

UNTIL
&uf('+7W1#',,,,,f(val(g1)+1,0,0),,,),,,if val(g1)<=val(g2) then '1' fi

DEL
901
*

ADD
901

(v1901/)

DEL
991
*


DEL
1901
*


FI