uses crt;

var d:array[1...N]of integer;

i,k,dem:integer;

begin

clrscr;

write('Nhap k='); readln(k);

for i:=1 to k do 

  begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to k do 

  if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);

writeln('So phan tu chan co 2 chu so la: ',dem);

readln;

end.

uses crt;
var i,n,m:longint; a,b:array[1..10000]of longint;
begin
clrscr;
   write('n=');readln(n);
   writeln('Nhap day so');
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 2=0 then begin inc(m); b[m]:=a[i]; end;
   write('Mang moi: ');
   for i:=1 to m do write(b[i],' ');
readln
end.