Напишите программу, которая находит в массиве количество элементов, равных максимальному.

Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .

Выходные данные
Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному.

Примеры:
входные данные
6
1 2 3 2 3 3
выходные данные
3 3

var a:array[1..10000] of integer;n,i,max,k:integer; beginreadln(n);for i:=1 to n do read(a[i]);max:=a[1]; k:=1;for i:=2 to n do  begin if a[i]>max  then begin max:=a[i]; k:=1; end  else if a[i]=max then k:=k+1; end;writeln(max,' ',k);end.Пример:61 2 3 2 3 33 3