function max:integer;
    var
    maior : integer;
    Begin
        i := 1;
        maior := v[i];
        while (i <= 10) do
        Begin
            If v[i] >= v[i + 1] then
                maior := v[i]
            else
                maior := v[i + 1];
            i := i + 1;
        end;
        WriteLn(maior);
    end;