program bai_giai;
uses crt;
var A:array[1..250] of integer;
    n,i,dnt,min,j,tg:integer;
function ktnt(k:integer):boolean;
var r:integer;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    for i:=1 to n do
        begin
            write('A[',i,'] = ');  readln(A[i]);
        end;
    write('Day vua nhap: ');
    dnt:=0; min:=A[1];
    for i:=1 to n do
        begin
            write(A[i],' ');
            if ktnt(A[i]) then dnt:=dnt+1;
            if A[i]<min then min:=A[i];
        end;
    writeln;
    writeln('Co ',dnt,' so nguyen to');
    writeln('Gia tri nho nhat la: ',min);
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if A[i]>A[j] then
                begin
                    tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
                end;
    write('Day khong giam: ');
    for i:=1 to n do write(A[i],' ');
    readln;
end.

uses crt;
var n,i,j,count,min,t:longint;
   a:array[1..500]of longint;
function isPrimeNumber(n:longint):boolean;
var i:longint;
begin
   if n<2 then exit(false);
   for i:=2 to trunc(sqrt(n))do 
      if n mod i=0 then exit(false);
   exit(true);
end;
begin
clrscr;
   readln(n);
   min:=high(longint);
   for i:=1 to n do
      begin
         read(a[i]);
         if isPrimeNumber(a[i])then inc(count);
         if a[i]<min then min:=a[i];
      end;
   write('Day so: ');for i:=1 to n do write(a[i],' ');writeln;
   writeln('Co ',count,' so nguyen to');
   writeln('MIN: ',min);
   for i:=1 to n do
      for j:=1 to i-1 do
         if a[i]<a[j]then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
   write('Day khong giam: ');for i:=1 to n do write(a[i],' ');
readln;readln;
end.