program calc;
uses crt;
 var
a: array[1..10000] of integer;
exz: array[0..9] of integer;
n, i, k, j: integer;

begin {Начало программы}
clrscr;
writeln('Введите количество элементов массива');
readln(n);
writeln('Начинаем заполнение массива ',n,' значениями');
for i:=1 to n do {Цикл заполнения массива}
begin
writeln('Введите значение ',i,'-го элемента');
read(a[i]);
if a[i]<1 then begin writeln('Вы ввели не натуральное число, пожалуйста, повторите.'); i:=i-1; end; 
end;

{начинаем анализ массива}
for i:=1 to n do 
begin
 while a[i] >0 do
begin
j:=a[i] mod 10;
exz[j]:=exz[j]+1;
a[i]:=a[i] div 10; end; end;

{начинаем обрабатывать результирующий массив}
k:=exz[0];
for i:=0 to 9 do 
if exz[i]>k then begin k:=exz[i]; j:=i; end;

writeln('Наиболее часто в массиве встречается цифра ',j);
readln;
end.

program calc;
uses crt;
var
a: array[1..10000] of integer;
exz: array[1..10000] of integer;
n, i, k, j, g: integer;
begin
clrscr;
writeln('Введите количество элементов массива');
readln(n);
writeln('Начинаем заполнение массива ',n,' значениями');
for i:=1 to n do {Цикл заполнения массива}
begin
writeln('Введите значение ',i,'-го элемента');
read(a[i]); end;

for i:=0 to n+1 do exz[i]:=0;

{начинаем анализ массива}
for i:=1 to n do
begin
k:=a[i];
while k > 0 do
begin
j:=k mod 10;
exz[i]:=exz[i]+j;
k:=k div 10;
end; end;

{Выводим оба массива рядом в столбик}
writeln("Число  Сумма цифр');
for i:=1 to n do begin write(a[i]:6, exz[i]:6); writeln; end;
{обрабатываем  массивы}
for g:=1 to n do begin
j:=0; k:=0;
for i:=2 to n do begin
if exz[i]<exz[i-1] then
                   begin
                   k:=exz[i-1];
                   j:=a[i-1];
                   exz[i-1]:=exz[i];
                   a[i-1]:=a[i];
                   exz[i]:=k;
                   a[i]:=j; end; end; end;
{Выводим получившиеся массивы рядом в столбик}
writeln("Число  Сумма цифр');
for i:=1 to n do begin write(a[i]:6, exz[i]:6); writeln; end;

readln(n);
end.

write(chr($DB));