Курсовая работа: Программа эмуляции развития

if (x>=120)and(x<=150) then col:='Май';

if (x>=151)and(x<=180) then col:='Июнь';

if (x>=181)and(x<=211) then col:='Июль';

if (x>=212)and(x<=241) then col:='Август';

if (x>=242)and(x<=272) then col:='Сентябрь';

if (x>=273)and(x<=303) then col:='Октябрь';

if (x>=304)and(x<=335) then col:='Ноябрь';

if (x>=336)and(x<=365) then col:='Декабрь';

mes:=col;

end;

{***********************************************************}

FUNCTION COLWORD;

VAR COLO:STRING;

BEGIN

IF COL=0 THEN COLO:='ЧЕРНЫЙ';

IF COL=1 THEN COLO:='СИНИЙ';

IF COL=2 THEN COLO:='ЗЕЛЕНЫЙ';

IF COL=3 THEN COLO:='ГОЛУБОЙ';

IF COL=4 THEN COLO:='КРАСНЫЙ';

IF COL=5 THEN COLO:='ФИОЛЕТОВЫЙ';

IF COL=6 THEN COLO:='КОРИЧНЕВЫЙ';

IF COL=7 THEN COLO:='СВЕТЛО-СЕРЫЙ';

IF COL=8 THEN COLO:='ТЕМНО-СЕРЫЙ';

IF COL=9 THEN COLO:='СВЕТЛО-СИНИЙ';

IF COL=10 THEN COLO:='СВЕТЛО-ЗЕЛЕНЫЙ';

IF COL=11 THEN COLO:='СВЕТЛО-ГОЛУБОЙ';

IF COL=12 THEN COLO:='СВЕТЛО-КРАСНЫЙ';

IF COL=13 THEN COLO:='СВЕТЛО-ФИОЛЕТОВЫЙ';

IF COL=14 THEN COLO:='ЖЕЛТЫЙ';