Дана последовательность целых чисел, оканчивающаяся нулём. Определите, сколько чисел в этой последовательности равны её наибольшему элементу. Ноль числом последовательности не считается.

Формат входных данных
Вводится не более чем 10000 целых чисел, каждое из которых не превосходит по модулю 215−1. После последнего числа вводится 0.
Формат выходных данных
Требуется вывести количество чисел, равных максимуму.

ПИТОН ПОМАГИТЕЕЕЕЕ

нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу

program prim;

var i,sum,n,x   : integer;

begin

    write('n = ');

    readln(n);

    x: =2;

    sum: =2;

    i: =1;

    while sum< =n do

    begin

    x: =x+2;

    i: =i+1;

    sum: =sum+x;

end;

    writeln(i,'слагаемых');

end. 

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

0.27 - 0.09 = 0.18

или

27/100 - 9/100 = 18/100

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.