1)

Program b1;

Var a:array[1..100] of integer;

      i,n,d,min:integer;

Function ngto(c:longint):boolean;

Var b:longint;

Begin

   If c<2 then ngto:=false else ngto:=true;

   For b:=2 to trunc(sqrt(c)) do

       if c mod b = 0 then

               begin

                     ngto:=false; break;

               end;

End;

Begin

  {---cau_a----}

   Writeln('Nhap n:');Readln(n);

   Writeln('Cac so trong day la: ');

   For i:=1 to n do

    Begin

       Write('a[',i,']=');Readln(a[i]);

    end;

    {---cau_b---}

For i:=1 to n do

   If ngto(a[i]) then d:=d+1;

writeln ('Co ',d,' so nt trong day');

{---cau_c---}

min:=a[1];

For i:=1 to n do

  If  a[i]<min then min:=a[i];

write ('So nho nhat la ',min);

Readln

End.

2)

Program b2;

Var s,s1:string;

      i:integer;

Begin

  write('Nhap xau : ');readln(s); 

  for i:= (length(s)) downto 1 do 

      S1:=S1+S[i];

  if (S1=S) then write('Xau doi xung') else writeln('Xau khong doi xung');

  write ('Xau sau khi in hoa la: ');

  For i:=1 to length(s) do

  s[i]:=upcase(s[i]);

  Write(s);

readln;

END.

1)

uses crt;
var i,j,n,dnt,min,t:longint; a:array[1..100000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
begin
clrscr;
   write('Nhap n: (n<=250) ');readln(n); 
   min:=high(longint);
   for i:=1 to n Do 
      begin
         write('a[',i,']=');readln(a[i]);
         if nt(a[i]) then inc(dnt);
         if a[i]<min then min:=a[i];
      end;
   write('a)Day vua nhap: ');
   for i:=1 to n Do write(a[i],' ');
   writeln;
   writeln('b) So luong so nguyen to co trong day: ',dnt);
   writeln('c) Gia tri nho nhat: ',min);
   for i:=1 to n Do
      for j:=i+1 to n Do
         if a[i]>a[j] then
            begin
               t:=a[i]; 
               a[i]:=a[j];
               a[j]:=t;
            end;
   write('d) Day sau khi sap xep: ');
   for i:=1 to n Do write(a[i],' ');
readln
end.
2)

uses crt;
var  s:string;
function dx(s:string):boolean;
var i:longint;
begin
   dx:=true;
   for i:=1 to length(s) div 2 do 
      if s[i]<>s[length(s)-i+1] then dx:=false;
end;
begin
clrscr;
   write('Nhap vao 1 xau: ');readln(s);
   if dx(s) then writeln('a) S la xau doi xung') 
      else writeln('b) S khong la xau doi xung');
   writeln('b) Xau in hoa: ',upcase(s));
readln;
end.