1) Ввести входной массив.
2) Выполнить перебор его элементов в цикле.
     2.1) Если a[i] mod 2 = 0 и (a[i] div 10) mod 2 = 0 (если обе цифры - четные)
            2.1.1) cb:=cb+1; Счетчик элементов массива B увеличиваем на 1 
            2.1.2) b[cb]=a[i]; Переносим найденное число в выходной массив.
    2.2)Конец если
3)Конец цикла
4)Вывод полученного массива.

uses crt;
const n=20;
var a,c:array [1..20]of byte;i,j:byte;
begin
randomize;
clrscr;
for i:=1 to n do
begin
a[i]:=random(90)+10;
writeln(a[i]);
readkey;
end;
j:=0;
for i:=1 to n do
if (a[i]mod 2=0)and((a[i]div 10) mod 2=0)then
begin
j:=j+1;
c[j]:=a[i];
end;
writeln;
for i:=1 to j do
writeln(c[i]);
end.