Пожалуйста,срочно!!!!
Решить в pascalABC.
Cоставить программу,выводящую массив,состоящий только из чисел больше заданного.Элементы массива вводятся с клавиатуры.

Я уж не силен в этой программено вот вроде должно получитьсяvar   a, b : array [1..16] of Integer; begin   for var i := 1 to 16 do     a[i] := ReadLnInteger('a[' + i + '] =');    WriteLn('Массив A = ', a);    b := a;    Swap(b[2], b[5]);    Swap(b[4], b[9]);    Swap(b[7], b[15]);    Swap(b[9], b[16]); // повторяем обмен 9, если что?    WriteLn('Массив B = ', b); end.