program FilterArray;

var
arr: array[1..200] of integer;
i, max_even, max_odd: integer;

begin
// заполнение массива arr
for i := 1 to 200 do
arr[i] := random(10001); // случайное значение от 0 до 10000

max_even := -1;
max_odd := -1;

// поиск максимальных четного и нечетного элементов
for i := 1 to 200 do
begin
if (arr[i] mod 2 = 0) and (arr[i] > max_even) then
max_even := arr[i]
else if (arr[i] mod 2 = 1) and (arr[i] > max_odd) then
max_odd := arr[i];
end;

// фильтрация массива
if max_even < max_odd then
begin
for i := 1 to 200 do
begin
if arr[i] mod 2 = 0 then
arr[i] := 0;
end;
end
else
begin
for i := 1 to 200 do
begin
if arr[i] mod 2 = 1 then
arr[i] := 0;
end;
end;

// вывод отфильтрованного массива
for i := 1 to 200 do
writeln(arr[i]);

end.