var a: array[1..250] of integer;
i, n, d: byte;
max: integer;
Begin
Write('n = '); readln(n); d:=0;
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
if i=1 then max:=a[1]
Else if a[i]>max then max:=a[i];
End;
For i:=1 to n do
Begin
Write(a[i], ' ');
If a[i]=max then d:=d+1;
End;
Writeln;
Writeln('so lon nhat: ', max);
Write('so lan xuat hien: ', d);
Readln
End.