x: integer;
begin
x: = z mod 365;
if (X> = 0) and (x <= 30) then col: = 'січня';
if (X> = 31) and (x <= 58) then col: = 'лютого';
if (X> = 59) and (x <= 89) then col: = 'Март';
if (X> = 90) and (x <= 119) then col: = 'Апрель';
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: = 'ЖОВТИЙ';
-27 - br/>
IF COL = 15 THEN COLO: = 'БІЛИЙ';
COLWORD: = COLO;
END;
{********************************************** *************}
procedure fon;
begin
textbackground (x);
end;
{********************************************** *************}
procedure txt;
begin
textcolor (col);
end;
{********************************************** *************}
procedure ramka; {вивести рамку}
const
a = # 186; b = # 187; c = # 188; d = # 200; e = # 201; f = # 205;
{T}
var i, j: integer;
begin
hiddencursor;
gotoxy (x1, y1);
write (e);
for i: = (x1 +1) to (x2-1) do write (f);
write (b);
for i: = (y1 +1) to (y2-1) do
begin
gotoxy (x1, i);
write (a);
gotoxy (x2, i);
write (a);
end;
gotoxy (x1, y2);
write (d);
for i: = (x1 +1) to (x2-1) do write (f);
write (c);
hiddencursor;
...
