Viết chương trình nhập vào một dãy gồm n số nguyên ( n nhỏ hơn hoặc bằng 250,a[i]nhỏ hơn hoặc bằng 500) a)In ra màn hình dãy vừa nhập b)Đếm số lương số nguyên tố trong dãy c)Tìm giá trị nhỏ nhất của dãy d)Sắp xếp dãy đó theo chiều ko giảm

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.