program n;
var a:array[1..15] of integer;
i,k:byte;
max:integer;
begin
for i:=1 to 15 do
read(a[i]);
max:=0;
k:=0;
for i:=1 to 15 do
begin
if a[i]>max then
max:=a[i];
end;
for i:=1 to 15 do
begin
if max=a[i] then
k:=k+1;
end;
write(k);
end.
cHJvZ3JhbSBuOwp2YXIgYTphcnJheVsxLi4xNV0gb2YgaW50ZWdlcjsKaSxrOmJ5dGU7Cm1heDppbnRlZ2VyOwpiZWdpbgpmb3IgaTo9MSB0byAxNSBkbwoJcmVhZChhW2ldKTsKbWF4Oj0wOwprOj0wOwpmb3IgaTo9MSB0byAxNSBkbwoJYmVnaW4KCWlmIGFbaV0+bWF4IHRoZW4KCQltYXg6PWFbaV07CgllbmQ7CmZvciBpOj0xIHRvIDE1IGRvCgliZWdpbgoJaWYgbWF4PWFbaV0gdGhlbgoJCWs6PWsrMTsKCWVuZDsKd3JpdGUoayk7CmVuZC4KCQkKCQoKCQ==