program Project1;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,k,n,max:integer;
begin
writeln('Vvedit kilkist elementiv v masyvi A[1..n]');
readln(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end;
max:=a[1];k:=1;
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];k:=i;end;end;
writeln('Naybilshyi element v masyvi A e ',max,' yogo index ',k);
readln;
end.