program abc;

uses
   System.SysUtils;

var
   massiv: array [0 .. 100] of integer;
   n, i, M, position: integer;

procedure Chet(M1, posit, n1: integer);

begin
   M1 := 0;
   i := 0;
   while i <= n1 do
   begin
      if M1 < massiv[i] then
      begin
         M1 := massiv[i];
         posit := i;
      end;
      i := i + 2;
   end;
   writeln;
  writeln(M1);
   writeln('position ', posit);
end;

procedure Vvod(var  n1: integer);
begin
   repeat
      write('Введите размер массива: ');
      try
         readln(n1);
      except
         writeln('Ошибка .Это не натурально число ')
      end;
      if n1 < 0 then
       writeln('Ваше число должно быть больше нуля  ')   ;
         until n1 > 0;
   end;

procedure Zapolnenie(var n1: integer);
   begin

      for i := 1 to n1 do
      begin
         randomize;
         massiv[i] := random(100)-50
      end;
      for i := 1 to n1 do
      begin
         writeln(massiv[i])
      end;

   end;

   begin

      begin
         Vvod(n);
         Zapolnenie(n);

         Chet(M, position, n);

         readln;

      end;

end.