Простенькая задача на паскале.
Необходимо вывести значение наибольшего элемента в массиве.

var a, n, i, max : integer;
Begin
writeln ('vvedite kolichestvo elementov');
readln (n);
max := 0;
a:=0;
for i:=0 to n-1 do
begin
   readln (a);
   if a>max then max := a;
end;
writeln (max);
readln
end.

Формат входных данных

Сначала задано число N — количество элементов в массиве. Далее через пробел записаны N чисел — элементы массива.

Формат выходных данных

Необходимо вывести значение наибольшего элемента в массиве.