const n=5;
var i,j,el,k: integer;
    a: array [1..n,1..n] of integer;
    b: array [1..n] of integer;
begin
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=Random(100);
  k:=0;
{ вывод на экран }  
  for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:6);
    writeln;
  end;  
{ цикл по массиву }
  for i:=1 to n do
  begin
    el:=0;
    for j:=1 to n do
    if (a[i,j] mod 2 = 0) then
    el:=a[i,j];
    if (el>0) then
    begin
     k:=k+1;
     b[k]:=el;
    end;
  end;   
  if (k>0) then
  begin
    writeln('новый массив');
    for i:=1 to k do
    write(b[i]:6);   
  end
  else writeln('четных элементов нет');
end.