const 
   n=20;
var 
  a:array [1..n] of byte;          {входной массив}
  c:array [1..n] of byte;          {выходной массив}
  i:byte;                                {счетчик цикла}
  j:byte;                                {количество элементов в выходном массиве}
begin
  randomize;                         {инициализация ГСЧ}
  for i:=1 to n do                    {заполнение входного массива случайными числами}
  begin                                  {блок цикла заполнения входного массива}
     a[i]:=random(90)+10;        {генерация очередного числа}
     writeln(a[i]);                     {вывод на экран}
  end;                                   {конец блока цикла}
  j:=0;                                   {инициализация счетчика выходного массива}
  for i:=1 to n do                    {перебор элементов входного массива}
  begin
     if  (a[i]mod 2=0)            {если разряд единиц - четное число}
     and ((a[i]div 10) mod 2=0) {и разряд десятков - четное число}
     then
     begin                              {блок помещения найденного значения в выходной массив}
        j:=j+1;                         {увеличение счетчика выходного массива}
        c[j]:=a[i];                      {помещение найденного значения в выходной массив}
     end;                                {конец блока помещения найденного элемента}
  end;                                   {конец блока перебора элементов входного массива} 
  writeln;                               {разделение строк вывода}
  for i:=1 to j do                     {цикл вывода выходного массива}
  begin                                  {блок цикла вывода выходного массива}
    writeln(c[i]);                       {вывод элемента выходного массива на экран} 
  end;                                    {конец блока вывода элементов массива} 
  readln;                                 {Ожидание нажатия Enter}
end.