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.