Нужны ответы к 1 и 2 варианту. скажите

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
  if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
  else
    if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
    else begin
      var d3:=L.Where(x->x.IsEven).Min;
      L.RemoveAt(L.FindIndex(x->x=d3));
      var s:=L.OrderBy(x->x);
      Writeln(s.Last,s.First,d3)
      end
end.

Примеры:
Введите через пробел три цифры 2 0 5
520

Введите через пробел три цифры 0 5 0
500

Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной

#include <iostream>
#include <random>
#include <ctime>
using namespace std;

mt19937 gen(time(0));
uniform_int_distribution<> uid(0, 19);
void replace(int *a, int n, int k)
{
int last = a[n];
for (int i = n - 1; i >= k; i--) {
a[i + 1] = a[i];
}
a[k] = last;
}

int main()
{
int n = 0, k = 0;
cin >> n;
int *a = new int[n];
if (n <= 100) {
 for (int i = 0; i <= n; i++) {
  a[i] = uid(gen); cout << a[i] << " ";
 }
 cout << endl; cin >> k;
 if (k <= n) {
  replace(a, n, k - 1);
  for (int i = 0; i <= n; i++) {
   cout << a[i] << " "; }
 } else {
  cout << "Error" << endl;
 }
} else {
 cout << "Error!" << endl;
}
delete[] a;
return 0;
}