Реферат: Двунаправленный динамический список

if s1='мая' then

if s2<'21' then temp^.zodiak:='телец'

else temp^.zodiak:='близнецы';

if s1='июн' then

if s2<'22' then temp^.zodiak:='близнецы'

else temp^.zodiak:='рак';

if s1='июл' then

if s2<'23' then temp^.zodiak:='рак'

else temp^.zodiak:='лев';

if s1='авг' then

if s2<'24' then temp^.zodiak:='лев'

else temp^.zodiak:='дева';

if s1='сен' then

if s2<'24' then temp^.zodiak:='дева'

else temp^.zodiak:='весы';

if s1='окт' then

if s2<'24' then temp^.zodiak:='весы'

else temp^.zodiak:='скорпион';

if s1='ноя' then

if s2<'23' then temp^.zodiak:='скорпион'

else temp^.zodiak:='стрелец';

if s1='дек' then

if s2<'22' then temp^.zodiak:='стрелец'

else temp^.zodiak:='козерог';

if s1='янв' then

if s2<'21' then temp^.zodiak:='козерог'

else temp^.zodiak:='водолей';

if s1='фев'

then if s2<'21' then temp^.zodiak:='водолей'