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 begin
		if A[i] > max then begin
			max:=A[i];
			c:=0;
		end
		else if A[i]=max then c:= c + 1;
		writeln('>',c);
	end;
	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.

cHJvZ3JhbSBleDViOwoKdmFyIFY6IGFycmF5IFsxLi4xMDBdIG9mIGludGVnZXI7CnZhciBuLCBpOiBpbnRlZ2VyOwoKcHJvY2VkdXJlIG1heGltKEE6IGFycmF5IG9mIGludGVnZXI7IG46IGludGVnZXIpOwp2YXIgbWF4LCBjLCBpOiBpbnRlZ2VyOwpiZWdpbgoJbWF4Oj1BWzBdOyBjOj0wOwoJZm9yIGk6PTEgdG8gbiBkbyBiZWdpbgoJCWlmIEFbaV0gPiBtYXggdGhlbiBiZWdpbgoJCQltYXg6PUFbaV07CgkJCWM6PTA7CgkJZW5kCgkJZWxzZSBpZiBBW2ldPW1heCB0aGVuIGM6PSBjICsgMTsKCQl3cml0ZWxuKCc+JyxjKTsKCWVuZDsKCXdyaXRlbG4oJ0VsZW1lbnR1bCBtYXhpbSAgJywgbWF4LCAnIHNlIHJlcGV0YSBkZSAnLCBjLCAnIG9yaScpOwplbmQ7CgpiZWdpbgoJcmVhZGxuKG4pOwoJZm9yIGk6PTEgdG8gbiBkbyByZWFkbG4oVltpXSk7Cglmb3IgaTo9MSB0byBuIGRvIHdyaXRlbG4oVltpXSk7CgltYXhpbShWLCBuKTsKZW5kLg==

MTAKMQoyCjMKNAo1CjYKNwo4CjkKMTA=

10
1
2
3
4
5
6
7
8
9
10