var
  k,i,m: integer;
  ar:array[1..20] of integer;
begin
  m:=-1;
  for i:=1 to 10 do begin
    ar[i]:=random(6);
    if m<ar[i] then m:=ar[i];
    write(ar[i]:5);
  end;
  writeln;
  for i:=1 to 10 do
    if ar[i]=m then inc(k);
  writeln(k:5);
end.