program Laba2_1;
    uses
       System.SysUtils;

    type
       TArr = array [0..50] 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('Максимальный элемент, среди чётных индексов массива: ',M1);
       writeln('позиция элемента  ', posit);
    end;

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

    procedure   fillingArr(var n1: integer);
       begin

          for i := 1 to n1 do
          begin
             randomize;
             arr[i] := random(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
          Main;
       end.