program xuinya;
Uses crt;
const n = 6;
m = 6;
var a: array[1..n,1..m] of integer;
i,j:integer;
begin
//заполнение случ числами, вывод
for i:=1 to n do begin
   for j:=1 to m do begin
      a[i,j]:=random(10);
      write(a[i,j],' ');
      end;
   writeln;
   end;
writeln;
//поиск четной строки, обнуление всех элементов
for i:=1 to n do begin
   if (i mod 2 = 0) then
      for j:=1 to m do
         a[i,j]:=0;
   end;
//вывод результата в crt
for i:=1 to n do begin
   for j:=1 to m do
      write(a[i,j],' ');
   writeln;
   end;
end.