// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);<br> b.Println;
end.
Примеры
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True