program Untitled;
var
  n,i,s,max : integer;
begin
  while not eof do begin
    readln(n);

    max := 0;
    for i := 1 to n do begin
      read(s);
      if s > max then max := s;
    end;

    writeln(max);

  end;
end.

您的輸出超過測資的輸出!!(line:2)
您額外輸出了: 0

可能的原因為
* 累贅的輸出，請勿輸出題目未要求的文字

而且所有都是額外輸出了 "0",  可是在本地運行沒有問題...