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

s2:=s2+pe.y;

s3:=s3+pe.k;

s4:=s4+pe.s;

end;

seek(f,j);

read(f,pe);

writeln('oblast-',pe.no,' imeet samiy nizkiy ur.prest');

seek(f,l);

read(f,pe);

writeln('oblast-',pe.no,' imeet samiy visokiy ur.prest');

writeln('obsh. kol prest - ',s);

writeln('obsh.kol ubiystv- ',s1);

writeln('obsh.kol iznas.- ',s2);

writeln('obsh.kol kraj- ',s3);

writeln('obsh.kol samoub.- ',s4);

close(f);

end;

readln;

end;

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

procedure st;

var v:char;h:byte;

begin

window(1,1,40,25);

pamka(1,1,39,25);

window(2,2,38,24);

textbackground(2);

clrscr;

textcolor(0);