Заполнить массив по правилу

var
  a: array[0..100] of integer;
  i: integer;
 
begin
  i := 1;
  while i < 200 do
  begin
    a[i] := i;
    writeln(a[i]);
    inc(i, 2);
  end;
end.

var
  a, b, c: array[1..100] of integer;
  i, k, l: integer;
 
begin
  write('a[50]=');
  for i := 1 to 50 do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  writeln;
  writeln('b[50]=');
  for i := 1 to 50 do
  begin
    b[i] := random(10);
    write(b[i], ' ');
  end;
  writeln;
  writeln('c[100]=');
  for i := 1 to 100 do
  begin
    if i mod 2 <> 0 then begin inc(k); c[i] := a[k]; end
    else begin inc(l); c[i] := b[51 - l]; end;
    write(c[i], ' ');
  end;
end.

var
  a: array[1..200] of integer;
  i: integer;
 
begin
  i := 1;
  while i < 200 do
  begin
    a[i] := i;
    writeln(a[i]);
    inc(i, 2);
  end;
end.

var
  a: array[1..50] of integer;
  i, k, n: integer;
 
begin
  write('k='); readln(k);
  writeln('Ваш массив: ');
  for i := 1 to 50 do
  begin
    a[i] := random(10);
    write(a[i], ' ');
    if a[i] = k then n := i; 
  end;
  writeln;
  if n = 0 then writeln('NO')
  else writeln('YES. №', n);
end.