Последнее ) все вычисления должны быть в условиях расширенного фильтра

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

Var s: string; n,a: integer; begin writeln('введите число (для закрытия проги введите 0)'); readln(n); while n< > 0 do begin s: =''; while n < > 0 do begin a: =n mod 16; case a of  0: s: =a+s; 1: s: =a+s; 2: s: =a+s; 3: s: =a+s; 4: s: =a+s; 5: s: =a+s; 6: s: =a+s; 7: s: =a+s; 8: s: =a+s; 9: s: =a+s; 10: s: ='a'+s; 11: s: ='b'+s; 12: s: ='c'+s; 13: s: ='d'+s; 14: s: ='e'+s; 15: s: ='f'+s; end; n: =n div 16; end; writeln(s); writeln('введите число (для закрытия проги введите 0)'); readln(n); end; end.