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.
