III-17

var
n, i, ans : integer;
k:longint;
begin
    ReadLN(n);//количество чисел
    ans := -1;//ответ
    for i:= 1 to n do
    begin
        Read(k);//считываем очередное число
        while (k > 10) do
            k:= k Div 10;//уменьшаем число до цифры(выделяем старшую цифру)
        if (k > ans) then //если оно больше, чем мы встречали до этого
            ans := k;//обновим ответ
    end;
    WriteLN(ans);
end.