`* Pascal:`

`" "`

program le_plus_grand_nombre;
uses crt;
var grand, indi, indices, N, A: longint;

begin
    clrscr;
    readln(N);
    
    grand := low(longint);
    indices := 0;
    
    for indi := 1 to N do 
    begin
        read(A);
        
        if A > grand then
        begin
            grand := A;
            indices := indi;
        end;
    end;
    
    writeln(grand);
    writeln(indices);
    
    readln
end.
    
 

#include <iostream>
using namespace std;

int SearchFirst(int n,int a[],int max){
    for (int i = 0 ; i < n;++i){
        if (a[i] == max) return i;
    }
    return -1;
}
int main(){
    int n;cin>>n;
    int a[n];
    for (int i = 0; i < n;++i) cin>>a[i];
    int max = a[0];
    for (int i = 0 ; i < n;++i){
        if (a[i] > max) max = a[i];
    }
    int id = SearchFirst(n,a,max);
    cout<<a[id]<<"\n"<<id+1;
    
}