Отбор 3.25

  k := 10001;
  for i := 1 to N do
    if (a[i] < k) then
      k := a[i];
  for i := N downto 1 do
  begin
    if (a[i] > 2 * k) then
      a[i] := a[i] - k;
    writeln(a[i]);
  end;