Ответ:

Код ниже

Объяснение:

program evenNumbers;

const  n = 23;

var arr: array[1..n] of integer;

  i: integer;

begin

   randomize;

   for i := 1 to n do begin

       arr[i] := Random(20);

       if (arr[i] mod 2 = 0) then writeln(arr[i])

    end;

end.