открывается диалоговое окно создание правила форматирования видит пользователь сам предлагает свои условия форматирования выбранных ячеек в MS Excel управление правилами создать правило​

Здесь задается только длина числа, а само число выводится рандомно, но если что, то можно сделать ввод с клавиатуры.

Var
   n,x: integer;
   k,m,i: byte;
 begin
   randomize;
  write ('Введите длину числа (M): ');
  readln (m);
  x:=1; // величина ограничителей значений числа при рандомном вводе
  for i:=2 to m do
    x:=x*10;
  n:=random(x,x*10-1);
  writeln ('n=',n);
  for i:=1 to m do begin
    if (n mod 10) mod 2 =0
      then k:=k+1;
    n:=n div 10;
  end;
  writeln;
  writeln ('В этом числе ',k,' четных цифр');
end.

Пример:
Введите длину числа (M): 4
n=5297

В этом числе 1 четных цифр

PascalABC

var  mas: array[-1000..1000] of integer;  i, min, max, n, razn: integer;begin
  //ввод количества элементов массива  readln(n);  //ввод массива и его вывод на экран  randomize;  for i := 1 to n do   begin    mas[i] := 500 - random(1000) - 1;    write(mas[i]:5);    if (i mod 10 = 0) then writeln;  end;  //поиск минимума и максимума  min := mas[1];  max := mas[1];  for i := 2 to n do   begin    if (mas[i] < min) then min := mas[i];    if (mas[i] > max) then max := mas[i];  end;  //нахождение разности  razn := max - min;  writeln;  writeln('Разность = ',razn);end.