Курсовая работа: Автоматизований аналіз злочинності

textbackground(4);

clrscr;

gotoxy(1,4);

write(st1,st2,st3,st4);

end;

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

procedure strila(x,y:byte);

begin

gotoxy(x,y);

textbackground(0);

textcolor(14);

write(' | ');

gotoxy(x,y+1);

write('\|/');

gotoxy(x,y+2);

write(' " ')

end;

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

procedure tread (var a:char;var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

procedure pamka (x1,y1,x2,y2:integer);

var i,c:integer;

begin

textcolor(1);