Вводится массив, состоящий из целых чисел. Найти величайшее посреди их. Входные

program zz1;

var  i, max1, n:integer; // задаем переменные целого типа

m:array [1..100] of integer;

begin

write( введите данное число n ); // вводим количество частей в массиве

read(n);

for i:=1 to n do // записываем в массив числа с клавиатуры

read(m[i]);

max1:=0; // задаем изначальное значение для величайшего элемента

for i:=1 to n do  // обретаем наибольший элемент

if m[i]gt;max1 // проверяем, если очередной элемент больше максимального, то записываем его в наибольший

then max1:=m[i];

writeln( наибольший элемент = , max1); // выводим ответ

end.