program z1;
var i:integer;
m, n:integer;
a:array[1..15] of integer;

begin
m:=0;
for i:=1 to 15 do
    begin
    writeln('Введите ', i, ' й элемент массива');
    readln(a[i]);
    if a[i] > m then
        m:= a[i];
    end;
n:=0;
for i:= 1 to 15 do
  begin
    if a[i] = m then
        n:=n+1;
    end;

if n > 1 then
    writeln('Кол-во элементов: ', n)
else
    writeln('Наибольший элемент: ', m)
end.