const n=10;
var a,b: array[1..n] of integer;
    i,j,k,m,mn,mx,ind: integer;
begin
  for i:=1 to n do b[i]:=1;
  randomize;
  k:=n div 2;
  for i:=1 to n do
  begin
    a[i]:=random(1,k);
    write(a[i],' ');
  end;
  writeln;
// повторения
  for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
    if (a[j]=a[i]) and (b[j]>0) then
    begin
      inc(b[i]);
      b[j]:=0;
    end;  
  end;
// наименее встречающиеся
  mn:=10;
  for i:=1 to n do
  if (b[i]<mn) and (b[i]>0) then mn:=b[i];
// максимальный среди наименее встречающихся
  mx:=0;
  for i:=1 to n do
  if (b[i]=mn) and (a[i]>mx) then
  begin
    mx:=a[i];
    ind:=i;
  end;
// пересылка максимальных в начало
  m:=1;
  for i:=ind to n do
  if a[i]=mx then 
  begin
    k:=a[i];  
    for j:=i-1 downto m do a[j+1]:=a[j];
    a[m]:=k;
    inc(m);
  end;  
// вывод массива на экран
  for i:=1 to n do write(a[i],' ');
  writeln;
end.