Вводится последовательность из n произвольных чисел. найти наибольшее число в последовательности. если таких чисел несколько, определить, сколько их. программирование

// PascalABC.NET 3.3, сборка 1531 от 30.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  var m:=a.Max;
  var s:=a.Where(x->x=m);
  if s.Count=1 then Writeln('Масимальное значение ',m)
  else Writeln(s.Count,' максимальных значений, равных ',m)
end.

Пример
n= 5
6 3 6 6 2
3 максимальных значений, равных 6

Var  co, N, max: integer;
begin  max := 0;  co := 1;  readln(N);  for var i := 1 to N do  begin    readln(N);    if N > max then      max := N    else if N = max then      co += 1;  end;  if co <> 1 then    writeln(max, ' ', co)  else    writeln(max);end.

Python

n=int(input())

if n>1 and n<10 or n==1:

   print(1)

elif n>10 and n<100 or n==10 :

   print(2)

elif n>100 and n<1000 or n==100 :

   print(3)

elif n>1000 and n<10000 or n==1000:

   print(4)

elif n>10000 and n<100000 or n==10000:

   print(5)

elif n>100000 and n<1000000 or n==100000:

   print(6)

elif n>1000000 and n<10000000 or n==1000000:

   print(7)

elif n>10000000 and n<100000000 or n==10000000:

   print(8)

elif n>100000000 and n<1000000000 or n==100000000:

   print(9)

elif n>1000000000 and n<10000000000 or n==1000000000:

   print(10)

else:

   print(0)

СДЕЛАЙ ОТВЕТ ЛУЧШИМ!

1) Объект может быть охарактеризован структурой, его состоянием, поведением и индивидуальностью. Состояние объекта определяется перечнем всех возможных (обычно статических) свойств и текущими значениями (обычно динамическими) каждого из этих свойств. Свойства объекта характеризуются значениями его параметров. Поведение объекта описывает, как объект воздействует на другие объекты или как он подвергается воздействию со стороны других объектов с точки зрения изменения его собственного состояния и состояния других объектов. Говорят также, что поведение объекта определяется его действиями. Определенное воздействие одного объекта на другой с целью вызвать соответствующую реакцию называют операцией. В объектно-ориентированных языках программирования операции называют методами.
2) При выделения объекта и нажатия по нему правой кнопки мыши появляется меню, где мы выбираем Свойство (это позволит узнать свойства объекта).
3)Откройте свойства папки.Перейдите во вкладку «Настройка» и щелкните кнопку «Сменить значок».Укажите место поиска иконки. По умолчанию это системная библиотека Shell32.dll, но вы можете выбрать и другой источник. Кликните подходящее изображение и нажмите ОК.