program Project56;
uses
  SysUtils;

{$APPTYPE CONSOLE}
  var    today : TDateTime;
var a: array [1..100000000] of integer;
i,j,t,n: integer;

  begin


writeln('n=');
readln(n);
randomize;
for i:=1 to n do
 a[i]:=1000-random(2000);
today := Time;
 writeln('Time 1 = '+TimeToStr(today));

for i :=1 to n-1 do
for j :=1 to n-1 do
 if a[j]>a[j+1] then
 begin
 t:=a[j] ;
  a[j]:=a[j+1];
   a[j+1]:=t;
   end;
//   for i:=1 to n do  write(arr[i],' ');
today := Time;
 writeln('Time 2 = '+TimeToStr(today));
 readln;


     end.