Написать программу, которая проверяет - образуют ли элементы заданного массива возрастающую последовательность.

Var arr : array of integer; len, i : integer; begin write ('Введите размер массива: '); readln (len); SetLength (arr, len); for i : = 0 to len - 1 do begin write ('arr[', i, '] = '); readln (arr[i]); end; for i : = 1 to len - 1 do if arr[i] < = arr[i - 1] then begin writeln ('Последовательность не возрастающая'); Exit; end; writeln ('Последовательность возрастающая'); end.