Василий регио сделать ремонт в своей комнате

Var n, amount, max_digit, copy_of_n: integer;
begin
     read(n);
     copy_of_n := n;
     amount := 0;
     max_digit := copy_of_n mod 10;
     while copy_of_n <> 0 do
     begin                                   {Находим наибольшую цифру в числе}
          if max_digit < copy_of_n mod 10
          then
              max_digit := copy_of_n mod 10;
          copy_of_n := copy_of_n div 10;
     end;
     copy_of_n := n;
     while copy_of_n <> 0 do        {Считаем количество таких цифр}
     begin
          if copy_of_n mod 10 = max_digit
          then
              amount := amount + 1;
          copy_of_n := copy_of_n div 10;
     end;
     writeln(amount);
end.

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.