program a050;
  var
    a:array[1..100000]of dword;
    i,n,max:longint;
  begin
    read(n);
    max:=0;
    for i:=1 to n do
      begin
        read(a[i]);
        if a[i]>max then
          max:=a[i];
      end;
    while not eof do
      begin
        write(max);
        read(n);
        max:=0;
        for i:=1 to n do
          begin
            read(a[i]);
            if a[i]>max then
              max:=a[i];
          end;
      end;
  end.

題目說：「輸入只有兩行」。可是所有的測資的第二行後面都有換行，只有第四個測資沒有，讀完所有的測試資料之後，你就碰到了 eof，所以沒有輸出。