Var max,n,c,i:integer;
begin
readln(n); //сколько чисел будет всего введено
readln(c);
max:=c;
for i:=1 to n-1 do begin
readln(c);
if max end;
writeln(max);
end.
//это один из самых производительных алгоритмов, без лишних записей в массив и траты памяти