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

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)

IF F:F11>0

ST3=F:F11.

IF F:F12>0

ST4=F:F12.

IF F:F13>0

ST5=F:F13.

IF F:F14>0

ST6=F:F14.

IF F:F15>0

ST7=F:F15.

IF F:F16>0

ST8=F:F16.

IF ST3>0 AND ST7>0

ST9=ST3/ST7.

IF ST4>0 AND ST8>0

ST10=ST4/ST8.

IF ST5>0 AND ST7>0

ST11=ST5/ST7.