program ex5b;
 
var V: array [1..100] of integer;
var n, i: integer;
 
procedure maxim(A: array of integer; n: integer);
var max, c, i: integer;
begin
	max:=A[0]; c:=0;
	for i:=1 to n do
		if A[i] > max then begin
			max:=A[i];
			c:=0;
		end
		else if A[i]=max then c:= c + 1;
 
	writeln('Elementul maxim  ', max, ' se repeta de ', c, ' ori');
end;
 
begin
	readln(n);
	for i:=1 to n do readln(V[i]);
	for i:=1 to n do writeln(V[i]);
	maxim(V, n);
end.

cHJvZ3JhbSBleDViOwoKdmFyIFY6IGFycmF5IFsxLi4xMDBdIG9mIGludGVnZXI7CnZhciBuLCBpOiBpbnRlZ2VyOwoKcHJvY2VkdXJlIG1heGltKEE6IGFycmF5IG9mIGludGVnZXI7IG46IGludGVnZXIpOwp2YXIgbWF4LCBjLCBpOiBpbnRlZ2VyOwpiZWdpbgoJbWF4Oj1BWzBdOyBjOj0wOwoJZm9yIGk6PTEgdG8gbiBkbwoJCWlmIEFbaV0gPiBtYXggdGhlbiBiZWdpbgoJCQltYXg6PUFbaV07CgkJCWM6PTA7CgkJZW5kCgkJZWxzZSBpZiBBW2ldPW1heCB0aGVuIGM6PSBjICsgMTsKCQoJd3JpdGVsbignRWxlbWVudHVsIG1heGltICAnLCBtYXgsICcgc2UgcmVwZXRhIGRlICcsIGMsICcgb3JpJyk7CmVuZDsKCmJlZ2luCglyZWFkbG4obik7Cglmb3IgaTo9MSB0byBuIGRvIHJlYWRsbihWW2ldKTsKCWZvciBpOj0xIHRvIG4gZG8gd3JpdGVsbihWW2ldKTsKCW1heGltKFYsIG4pOwplbmQu

MTAKMQoyCjMKNAo1CjYKNwo4CjE5CjEw

10
1
2
3
4
5
6
7
8
19
10