bài này dễ mk lm nhanh bn nha

var a:array[0..10000] of longint;
    i,x,dem,n,d,tich,min,max,vtnn,vtln:longint;
function shh(h:longint):boolean;
        var s,i:longint;
        begin
                if h<0 then exit(false)
                else s:=0;
                for i:=1 to h-1 do
                        if h mod i=0 then s:=s+i;
                        if s=h then exit(true);
                                    exit(false);
        end;
begin
        write('nhap n: ');read(n);
        for i:=1 to n do
        begin
                write('a[',i,']');
                read(a[i]);
        end;
//a
        write('nhap x: ');read(x);
        for i:=1 to n do
                if a[i]=x then inc(dem);
                write(dem);
                writeln;
//b
        for i:=1 to n do
                if (a[i] mod 2=0) and (i mod 2<>0) then
                write(a[i],' ');
                writeln;
//c
        for i:=1 to n do
                if shh(a[i]) then write(a[i],' ');
                writeln;
//d
        min:=a[1];
        for i:=1 to n do
                if a[i]<min then
                begin
                        min:=a[i];
                        vtnn:=min;
                end;
        max:=a[1];
        for i:=1 to n do
                if a[i]>max then
                begin
                        max:=a[i];
                        vtln:=max;
                end;
        tich:=1;
        for i:=vtnn to vtln do
                tich:=tich*a[i];
                write(tich);
                writeln;
readln;
readln;
end.

Type mang=array[1..100]of integer;

procedure nhap(var a:mang);

var n,i:integer;

begin

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

enprocedure xuat(var a:mang);

var i,n:integer;

begin

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

end;