Const n=20; var a1,a2,a3: array

const n=20;

var a1,a2,a3:array[1..n] of integer;

    i,j,x,max,p:integer;

begin

randomize;

writeln('İlkin massiv');

for i:=1 to n do

 begin

  a1[i]:=10+random(90);

  write(a1[i]:3);

 end;

a2:=a1;

a3:=a1;

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if a1[i]>a1[j] then

 begin

  x:=a1[i];

  a1[i]:=a1[j];

  a1[j]:=x;

 end;

writeln('Qabarcıqlar üsulu ilə çeşidləmə');

for i:=1 to n do

write(a1[i]:3);

writeln;

for i:=1 to n-1 do

 begin

  max:=i;

  for j:=i+1 to n do

 if a2[j]then max:=j;

 if max<>i then

  begin

   x:=a2[i];

   a2[i]:=a2[max];

   a2[max]:=x;

  end;

 end;

writeln('Seçmə üsulu ilə çeşidləmə');

for i:=1 to n do

write(a2[i]:3);

writeln;

for i:=2 to n do

 begin

  x:=a3[i];

  j:=1;

  while (jand(x>a3[j]) do inc(j);

  if jthen

   begin

    for p:=i-1 downto j do

    a3[p+1]:=a3[p];

    a3[j]:=x;

   end;

  end;

writeln('Yerləşdirmə ilə çeşidləmə');

for i:=1 to n do

write(a3[i]:3);

end.