Информатика программирование VBA Написать программу для: Дано действительное число А. Вычислить f(A), если f(x)=x^2+4x+5, при x<=2; в противном случае f(x)=1/(x2+4x+5

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.Row(0).Sum+a.Row(n-1).Sum;
  s+=a.Col(0).Skip(1).Take(n-2).Sum+a.Col(m-1).Skip(1).Take(n-2).Sum;
  Writeln('Сумма по периметру ',s)
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
  87 -67  11  59  46
 -13  86 -74  20 -98
 -74  24   6  51  74
  26 -93  36  40  66

Сумма по периметру 100

Культурный уровень современного человека определяется его информационной культурой. А информационная культура личности, как культура вообще, отражает активную творческую деятельность человека и, следовательно, развитие самого человека, как субъекта этой деятельности. Так как речь идет о культуре информационной, значит деятельность человека связана с информацией. То есть, информационная культура предполагает не только определенные знания, но и определенное приложение этих знаний для чего-либо, в связи с чем-либо, и совершенствование их в процессе той или иной деятельности, в том числе деятельности, связанной с информацией. Причем само приложение и совершенствование знаний значимо лишь в творчестве, реализованном в любой сфере жизнедеятельности человека.