Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу. Числа, следующие за числом 0, считывать не нужно.Выведите ответ на задачу (одно число). В питоне​

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016

begin

  var n:=ReadInteger; // очередной элемент

  var k:=0; // искомое количество

  var max:=n;

  while n<>0 do begin

    if n=max then Inc(k)

    else

      if n>max then begin max:=n; k:=1 end;

    n:=ReadInteger;

    end;

  Writeln('Число ',max,' встретилось ',k,' раз(а)')

end.

Тестовое решение:

4

6

2

6

1

6

9

3

9

5

2

0

Число 9 встретилось 2 раз(а)