program abc;

uses
   System.SysUtils;

type
   TArr = array [0..100] of Integer;

var
   Arr: TArr;
   n, i, M, position: integer;


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

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

procedure   fillingArr(var n1: integer);
   begin

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

   end;

   procedure Main();
   begin
      n := inputArr();
      fillingArr(n);

         compute(M, position, n);

         readln;
   end;

   begin

      begin
         Main();
      end;

end.