Назовите важнейшие экологические проблемы, связанные с освоением тундры человеком. Что необходимо предпринять для их скорейшего решения?

Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.