LAB1

 Program BInsert;
 Uses Crt,Dos;
 Var
 a:Array[0..30000] of Integer;
 i,j,x,n,L,R,m:Integer;
 h1,h2,m1,m2,s1,s2,d1,d2:word;
 c1,c2:Real;
 Begin
 ClrScr;
 Writeln('Bbedite gliny macciva');
 Readln(n);
 Randomize;
 For i:=1 to n Do
 a[i]:=Random(n);
 GetTime(h1,m1,s1,d1);
 c1:=h1*3600*100+m1*60*100+s1+d1/100;
 For i:=2 to n Do
 Begin
 x:=a[i];
 L:=1;
 R:=i-1;
 While L<=R Do
 Begin
 m:=(L+R) Div 2;
 If x<a[m] Then R:=m-1 Else L:=m+1
 End;
 For j:=i-1 Downto L Do
           a[j+1]:=a[j];
           a[L]:=x;
           End;
 GetTime(h2,m2,s2,d2);
 c2:=h2*3600*100+m2*60*100+s2+d2/100;
 c2:=c2-c1;
 For i:=1 to n Do
 Write (a[i],' ');
 Writeln(c2:4:2,'cek');
 Readln;
 End.