program Project16;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;


var
  i, n, j: Integer;
  Arr, Counter, NewArr: array of Integer;

begin
  writeln('Enter a size of array');
  readln (n);
  setLength(Counter, n);
  setLength(Arr, n);
  writeln('Enter the array elements: ');
  for i:= 0 to n-1 do
  begin
    write('Arr[',i,']= ');
    readln(Arr[i]);
  end;
  Counter[i] := 0;
  for i := 0 to n - 1 do
  begin
    if Arr[i] > Arr [i+1] then
      inc (Counter[i])
    else
    if Arr[i] < Arr[i+1] then
      inc(Counter[i+1]);
  end;
  setLength(NewArr, n);
  for i := 0 to n - 1  do
  begin
    NewArr[Counter[i]] := Arr[i];
    Writeln('NewArr[',Counter[i],']= ', NewArr[Counter[i]]);
  end;
  writeln('ПОШЕЛ НАХУЙ ПИДОРАС');
  Readln;
end.