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

begin

gotoxy(x1,y1+i);

write(#186);

end;

end;

{.........................................}

procedure into;

var i,n:integer;

begin

window(1,1,40,25);

textbackground(0);

clrscr;

textcolor(3);

pamka(1,19,39,25);

pamka(1,1,39,25);

gotoxy(1,19);

write(#204);

gotoxy(39,19);

write(#185);

window(2,20,38,24);

writeln(' ЯЯЯЯЯЬ ЬЯЯЬ ЫЯЯЯЫ Я ЬЬЬ ' );

writeln(' ЬЯ Ы Ы ЫЬЬЬЫ Ы ЯЬ Я ');

writeln(' ЬЯ ЫЬЬЬ Ы Ы Ы ЯЬ ');

writeln(' ЯЬЬЬЬЬ Ы Ы Ы Ы ЯЬЬЬЯ ');

window(5,2,37,17);

textcolor(7);

write('vvedi kolichestvo predpreatiy- ');readln(n);

assign(f,'d:\bas.bas');

rewrite(f);