Курсовая работа: База даних по приватним підприємствам регіону

gotoxy(3,1);

write (#181,st3,#198);

kl(5,20,35,23,7,0);

gotoxy(3,1);

write (#181,st4,#198);

end;

{------------------}

procedure prig(x,y,u,n:byte);

var i:byte;

begin

textbackground(0);

textcolor(u);

gotoxy(x,y);

for i:=1 to n do

write(#176);

end;

{==================}

begin

window(1,1,40,25);

textbackground(7);

clrscr;

st1:='Udalenie';

st2:='Predpreyatie';

st3:='Prosmotr';

st4:='Vihod';

rrr(st1,st2,st3,st4);

window(1,1,40,25);

prig(6,3,14,29);

pu:=1;