uses crt;
var n,i,j,k,d,min:longint;a:array[1..200]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if (n<=0)and(n>200) then writeln('NHAP LAI!');
        until n<=200;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        inc(d); 
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]<a[j] then
                                begin
                                        k:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=k;
                                end;
        write('Day so vua nhap (theo thu tu giam dan): ');
        for i:=1 to n do begin write(a[i],' '); end; inc(d);
        min:=a[1];
        for i:=2 to n do if a[i]<min then min:=a[i];
        writeln;
        begin
                write('So nho nhat: ',min);
                inc(d);
        end;
        writeln;
        write('So nho nhat duoc xuat hien ',d,' lan');
        readln;
end.