uses crt;
var n,x,i,d,d2,t,min,max:integer;
k1,k2:longint;
a:array[1..100] of integer;

function hh(n:integer):boolean;
var i,s:integer;
begin
s:=0;
for i:=1 to n-1 do
 if n mod i=0 then s:=s+i;
if s=n then hh:=true else hh:=false;
end;

begin
clrscr;
write('nhap so ptu');readln(N);
write('nhap ptu X:');readln(x);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i]=x then d:=d+1;
 if hh(a[i]) then d2:=d2+1;
end;
max:=a[1];
min:=a[1];
k1:=1;
k2:=1;
for i:=1 to n do
begin
 if max<a[i] then begin max:=a[i];k1:=i;end;
 if min>a[i] then begin min:=a[i];k2:=i;end;
end;
t:=1;
for i:=k2 to k1 do
 t:=t*a[i];
writeln(k1,' ',k2);
writeln('so luong ptu ',x,' co trong mang la:',d);
write('cac ptu co gia tri chan o vi tri le trong mang A la:');
for i:=1 to n do
 if (a[i] mod 2=0) and (i mod 2<>0) then write(a[i],' ');
writeln;
writeln('cac ptu la so hoan hao trong mang A la:',d2);
write('tich cac ptu nam trong doan vi tri nho nhat den vi tri gia tri lon nhat la:',t);
readln;
end.

var A:array[1..100] of integer;

n,i,d,x,t,s,x1,x2,max,min:integer;

function hh(var n:integer):boolean;

var i,s:integer;

begin

s:=0; for i:=1 to n-1 do

if n mod i=0 then s:=s+i;

if s=n then hh:=true else hh:=false;

end;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

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

readln(A[i]);

end;

min:=A[1]; max:=A[1];

write('Nhap x: '); read(x);

for i:=1 to n do if x=A[i] then d:=d+1;

writeln('So luong x trong mang: ',d);

writeln('Cac phan tu o vi tri le trong mang: ');

for i:=1 to n do begin

if i mod 2<>0 then write(A[i],' ');

if hh(A[i]) then t:=t+1;

end;

max:=a[1]; min:=a[1];

x1:=1; x2:=1;

for i:=1 to n do

begin

if max<a[i] then begin max:=a[i]; x1:=i; end;

if min>a[i] then begin min:=a[i]; x2:=i; end;

end;

s:=1; writeln;

writeln('So luong so hoan hao: ',t);

for i:=x2 to x1 do s:=s*A[i];

write('Tich: ',s);

readln

end.