Viết chương trình nhập vào từ bàn phím N số tự nhiên ( với 10<=N<=40). Xuất ra màn hình số có số lần xuất hiện nhiều nhất và số lần xuất hiện tương ứng của nó. Trong trường hợp có nhiều kết quả đúng theo yêu cầu thì in ra kết quả của số có giá trị lớn nhất VD Bạn muốn nhập dãy số N gồm bao nhiêu số: 12 Mời bạn nhập các số : 9 52 11 11 52 11 9 6 11 52 52 6 Số có lần xuất hiện nhiều nhất :52 số lần xuất hiện :4 GIÚP EM VỚI

uses crt, math;
var n, i, res, j, tmp, count, ans: longint;
    a: array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);

    for i:=1 to n - 1 do
        for j:=i + 1 to n do
            if a[i] > a[j] then 
                begin
                    tmp:=a[i];a[i]:=a[j];a[j]:=tmp;
                end;

    i:=1;
    While i <= n do
        Begin
            count:=1;
            While a[i] = a[i + 1] do
                begin
                    inc(count);
                    ans:=a[i];
                    inc(i);
                end;
            inc(i);
            res:=max(res, count);
        End;

    writeln(ans);
    writeln(res);
readln; readln;
end.