Ввести с клавиатуры массив из 5 частей найти наибольший из их

program zz1;

const n = 5; // задаем количество чисел в массиве

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

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

begin

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

read(m[i]);

for i:=1 to n do  // выводим исходный массив на экран

write(m[i], );

writeln;    // переходим на новейшую строку для вывода ответа

max:=0;

for i:=1 to n do  // организуем цикл, в котором переберем все числа массива

begin

if m[i] gt; max then max:=m[i]; //проверяем, если число из массива больше наибольшего, то записываем его в наибольшее

end;

writeln(максимальный элемент  = , max); // выводим ответ

end.