Реферат: База данных страховой компании

IF ST3>0 AND ST4>0

ST6=ST4/ST3*100.

IF ST7 OR ST8

ST9=ST8-ST7.

IF ST7>0 AND ST8>0

ST10=ST8/ST7*100.

IF ST12 OR ST11

ST13=ST12-ST11.

IF ST12>0 AND ST11>0

ST14=ST12/ST11*100.

IF F:F13>0

ST15=F:F13.

IF F:F14>0

ST16=F:F14.

IF ST15 OR ST16

ST17=ST16-ST15.

IF ST15>0 AND ST16>0

ST18=ST16/ST15*100.

PN#=1

ADD(YU)

CLEAR(ST)

ADD(YU). XRE:NREGION=TER:NREGION SET(XRE:K1,XRE:K1)

LOOP UNTIL EOF(XREG)

NEXT(XREG)

IF XRE:NREGION<>TER:NREGION THEN BREAK.

IF INS:NTER>23

ST2=XRE:IREG.

F:NREGION=XRE:NREGION

GET(F,F:K2)