Сколько раз встречаются цифры 1, 2 . 9

const
  maxSize = 100;
  
var
  a : array [1..maxSize] of Integer;
  Size : Integer;
  
procedure InitArray;
var i : Integer;
begin
  Write('Количество элементов массива: '); ReadLn(Size);
  for i := 1 to Size do
    begin
      Write('a[', i, '] = '); ReadLn(a[i]);
    end;
end;
 
procedure CountDigits;
var
  i, n : Integer;
  count : array [0..9] of Integer;
begin
  for i := 0 to 9 do count[i] := 0;
  for i := 1 to Size do
    begin
      n := a[i];
      repeat
        inc(count[n mod 10]);
        n := n div 10;
      until n = 0;
    end;
  for i := 0 to 9 do
    if count[i] = 0 then WriteLn(i, ' - ни разу не используется')
    else if (count[i] mod 100 > 10) and (count[i] mod 100 < 20) then WriteLn(i, ' - ', count[i], ' раз используется')
    else if (count[i] mod 10 > 1) and (count[i] mod 10 < 5) then WriteLn(i, ' - ', count[i], ' раза используется')
    else WriteLn(i, ' - ', count[i], ' раз используется');
end;
 
begin
  InitArray;
  CountDigits;
end.