Const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
k:=0;
for i:=1 to n do begin
  if (a[i] mod 2=0)and(a[i]mod 3=0) then
    k:=k+1;
end;
writeln('кол-во чисел кратных и 2-м и 3-м=',k);
end.



const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
for i:=1 to n do begin
  if (a[i]div 10)/(a[i]mod 10)=2 then
    write(a[i],' ');
end;
end.

const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
for i:=1 to n do begin
  if a[i]mod 10=a[i] div 100 then
write(a[i],' ');
end;
end.


const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
for i:=1 to n do begin
  if a[i]mod((a[i]mod 10)+(a[i]div 10))=0 then
write(a[i],' ');
end;
end.