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

ST14=F:F4.

IF F:F9>0

ST15=F:F9.

IF F:F10>0

ST16=F:F10.

IF ST15>0 AND ST13>0

ST17=ST15/ST13*100.

IF ST16>0 AND ST14>0

ST18=ST16/ST14*100.

IF ST15>0 AND ST3>0

ST19=ST15/ST3*100.

IF ST16>0 AND ST14>0

ST20=ST16/ST4*100.

IF ~ST AND ~STT THEN CYCLE.

ST2=GOR:GOROD

ST02=GOR:GOROD

ADD(YU)

CLEAR(ST)

ADD(YU1)

CLEAR(STT)

ADD(YU)

ADD(YU1)

LIC:NREGION=XRE:NREGION

LIC:KNAM=' '

SET(LIC:CNREG,LIC:CNREG)

LOOP UNTIL EOF(LIC) ! 7

NEXT(LIC)

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

IF LIC:NCITY<>GOR:KG THEN CYCLE.