Вычислить f на наборах значений (0,1,1); (1,0,1) f(x,y,z)= x∧(x→y)→(x→z)

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const
  N = 10;

var
  a: array [1..N] of integer;
  i, j, b: integer;

begin
  for i := 1 to N do
    a[i] := Random(81) - 40;
  writeln('Элементы массива a: ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;
 
  //сортировка не очень быстрая, но и массив маленький
  for j := 1 to n do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        b := a[i];
        a[i] := a[i + 1];
        a[i + 1] := b;
      end;
  writeln;
  writeln('После сортировки : ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;  
end.

Var
  a: Array [0..9] of Integer;
  n, min,max: Integer;

begin
  readln(n);
  min:=9;
  max:=0;
  while (n > 0) do begin
    inc(a[n mod 10]);
    if n mod 10<min then min:=n mod 10;
    if n mod 10>max then max:=n mod 10;   
    n := n div 10;
  end;

  for n := 0 to 9 do
   if a[n] = 3 then writeln('В числе есть 3 одинаковые',n);
 writeln('Максимальная цифра ',max);
 writeln('Минимальная  цифра ',min);
 
end.

Тест для числа:

222778999
В числе есть 3 одинаковые 2
В числе есть 3 одинаковые 9
Максимальная цифра 9
Минимальная  цифра 2