Program pesquisa_binaria;
uses crt;
var
    resp,n,i : integer;
    v : array[1..10] of integer;
function max (vetor : array of integer; fim : integer): integer;
    var
    maior,inicio : integer;
    Begin
        i := 1;
        maior := vetor[i];
        inicio := v[i];
        while (i <= fim) do
            Begin
            If v[i + 1] > v[i] then
            Begin
                max := v[i + 1];
            End;
            i := i + 1;
        end;
    end;
begin
    For i := 1 to 10 do
        Begin
        WriteLn('Digite o valor da posicao ', i,':');
        ReadLn(v[i]);
        clrscr;
    end;
    WriteLN(max(v,10));
end.