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