var
  number, tempNumber, N, i : integer;
begin
  write('Введите количество чисел: ');
  readln(N);
  write('Число номер 1: ');
  readln(number);
  for i := 2 to N do
  begin
    write('Число номер ', i, ': ');
    readln(tempNumber);
    if tempNumber < number then
    begin
      writeln('Последовательность убывающая');
      Exit;
    end;
    number := tempNumber;
  end;
  writeln('Последовательность возрастающая');
end.