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

ADD(YU)

CLEAR(ST)

ST='¦ Наименование ¦ ¦ ¦численность работников¦взносов на 1 работника ¦ на 1 работника ¦'

ADD(YU)

CLEAR(ST)

ST='¦ страховой организации '

¦'

ADD(YU)

CLEAR(ST)

ST='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦'

ADD(YU)

CLEAR(ST)

ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5 ¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11 ¦'

ADD(YU)

CLEAR(ST) ST='

‘

ADD(YU)

CLEAR(ST)

INS:NTER=0

SET(INS:K1,INS:K1)

LOOP UNTIL EOF(INSP)

NEXT(INSP)

PN#=0

if ins:nter>23

THEN

ST2=CLIP(INS:NAME)&' инспекция'

ELSE

ST2='Инспекция '

ADD(yu)