program nom_max_pro;
const
   n=100;
type
  massiv=array[1..n] of integer;
var x: massiv;
    max: word;
    k,i,nmax: word;
procedure nommax(x: massiv;var max,nmax: word;i,k: word);
begin
  max:=x[1];
  nmax:=1;
for i:=1 to k do
    if max<x[i] then
     begin
       max:=x[i];
       nmax:=i
     end;
end;
begin
  writeln('Vvedite razmernost massiva');
  readln(k);
for i:=1 to k do
  begin
    writeln('x[',i,']= ');
    readln(x[i]);
  end;
  nommax(x,max,nmax,i,k);
writeln('Maxcimalnii element: ',max);
writeln('Ego nomer: ',nmax);
end.