Поиск максимального элемента массива

PascalABC.NET:

## var n := ReadInteger('Введите длину массива:'); var a := ReadArrReal('Введите элементы массива:', n); Print('Максимальный элемент:', a.Max)