Курсовая работа: Довідкова система по кримінальному праву

write(s);

end;

3: begin

ramo4ka(4+h3,16,18+h3,19,0,c);

gotoxy(4,2);

write(s);

end;

4: begin

ramo4ka(4+h4,20,18+h4,23,0,c);

gotoxy(4,2);

write(s);

end;

end;

end;

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

procedure pol;

var i,n:integer;

begin

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

window(1,1,40,25);

rewrite(f);

textbackground(14);

clrscr;

window(4,3,37,22);

textbackground(9);

clrscr;

write('vvedi rasmer basi- '); readln(n);

for i:=1 to n do

begin