Program P;
Var
    n, i : Integer;
    max, iMax: Integer;
Begin
    Write('Enter 10 numbers ');
    
    for i := 1 to 10 do
    Begin
        Read(n);
        
        if i = 1 then
        Begin
            max := n;
            iMax := i;
        End
        else
            if n > max then
            Begin
                max := n;
                iMax := i;
            End;
    End;
    
    WriteLn('Max = ', max);
    WriteLn('index = ', iMax);
    
    ReadLn;
End.