Отказы технических систем из-за дефектов изготовления и нарушений режимов эксплуатации; многие современные потенциально опасные производства спроектированы так, что вероятность крупной аварии на них весьма высока и оценивается величиной риска 10-4 и более; ошибочные действия операторов технических систем; статистические данные показывают, что более 60% аварий произошло в результате ошибок обслуживающего персонала; концентрация различных производств в промышленных зонах без должного изучения их взаимного влияния; высокий энергетический уровень технических систем; внешние негативные воздействия на объекты энергетики, транспорта и др.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin var n:=ReadInteger('n='); if n>36 then begin Writeln('Слишком много, максимум 72'); Exit end else begin var a:=new integer[n]; var k:=0; for var i:=1 to 8 do for var j:=i+1 to 9 do begin a[i]:=10*i+j; Write(a[i],' '); Inc(k); if k>n then Exit end end end.