var
  N, i : integer;
  arr : array of integer;
begin
  write('Введите количество чисел: ');
  readln(N);
  SetLength(arr, N);              {устанавливаем длину массива}
  for i := 0 to N - 1 do
  begin
    write('Число номер ', i + 1, ': ');
    readln(arr[i]);
  end;
  for i := 1 to N - 1 do
    if arr[i] < arr[i - 1] then
    begin
      writeln('Последовательность убывающая');
      Exit;
    end;
  writeln('Последовательность возрастающая');
end.