program Project16;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;


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

begin
  writeln('Enter a size of array');
  readln (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 := 0;
  for i := 0 to n - 1 do
  begin
    if Arr[i] > Arr [i+1] then
    inc (Counter[Arr[i]])
    else
    if Arr[i] < Arr[i+1] then
    inc(Counter[Arr[i+1]]);
  end;
  Readln;
end.