---

var
  a:array[1..100000] of integer;
  n,i,m,k:integer;
begin
  readln(n);
  for i:=1 to n do begin
    readln(m);
    a[i]:=m;
  end;
  for k:=2 to n do if a[1]<a[k] then a[1]:=a[k];
  writeln(a[1]);
  readln;
end. 

---

我是好人，大家都别抄他的，这是个错误的代码，他是个大骗子，如果你们不信我，你们可以先测试一下。