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

begin

window(1,1,40,25);

pamka(1,1,39,25);

window(2,2,38,24);

textbackground(2);

clrscr;

textcolor(0);

write('vvedi kol-vo oblastey- ');readln(n);

assign(f,'d:\ret');

rewrite(f);

for i:=1 to n do

begin

seek(f,filesize(f));

clrscr;

writeln('Zapis- ',i+1);

write('vvedi nasvanie obl.- '); readln(pe.no);

write('vvedi kol-vo ubiystv- '); readln(pe.u);

write('vvedi kol-vo iznas. - '); readln(pe.y);

write('vvedi kol-vo kraj- '); readln(pe.k);

write('vvedi kol-vo samoybiystv- '); readln(pe.s);

write(f,pe);

end;

close(f);

end;

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

procedure lis;

var s,k,k1,s1,s2,s3,s4,min,s5,max,j,l,i:integer;

begin

window(1,1,40,25);