---

var
 A: array[1..10] of integer;
 i: integer;
 begin
   randomize;{ Инициализация генератора случайных чисел }
   writeln('Четные числа в массиве:');
   for i :=1 to 10 do
   begin
     a[i] := random(50) + 1;
     if A[i] mod 2 = 0 then
       write(A[i], ' ');
      
   end;
   writeln;
 end.