type 
list = array[1 .. 30] of integer;
Var 
years : list;
maxAgeP, maxAgeL, i, t : integer;
Begin 
  randomize;
  writeln('Ýëåìåíòû ìàññèâà: ');
  for i := 1 to 30 do
  begin
    years[i] := random(100);
    if (years[i] <= 16) then
    begin
      years[i] := years[i] + 2000;
    end
    else
    begin
      years[i] := years[i] + 1900;
    end;
    write(years[i], '; ');
    if i mod 5 = 0 then
    begin
      writeln();
    end;
  end;
  writeln();
  maxAgeP := 1;
  maxAgeL := 1;
  for i := 2 to 30 do
  begin
    if(years[i] < years[maxAgeP]) then
    begin
      maxAgeP := i;
    end;
    if(years[i] <= years[maxAgeL]) then
    begin
      maxAgeL := i;
    end;
  end;
  writeln('Index first: ', maxAgeP);
  writeln('Index last: ', maxAgeL);
End.