Преобразите данное выражение в таблицу в PaskalABC. b=x3+z/cos2x+1+tgx2-√sin x+a+ex/32

program Project1;

const

 maxelem = 100;

var

 a: array [1..maxelem] of integer; { Переменная для  хранения массива.}

 n: integer; {  Переменная для хранения значения количества элементов в массиве.}

 i,k: integer; { Вс переменные для организации циклов.}

 sum: integer; {  Переменная для хранения значения суммы выбранных величин роста}

begin

 n:= 15;

 for i:= 1 to n do

   repeat

     write('Введите значение ',i,' элемента: ');

     Readln(a[i]);

     if (a[i] < 150) or (a[i] > 200) then

       writeln('Введенное число не входит в заданный диапазон.');

   until (a[i] >= 150) and (a[i] <= 200);

 writeln('Исходный массив: ');

 for i:= 1 to n do

   begin

     write(a[i]:5);

     if i mod 10 = 0 then

       writeln;

   end;

 sum:= 0;

 k:= 0;

 for i:= 1 to n do

   if a[i] > 180 then

     begin

       sum:= sum + a[i];

       inc(k);

     end;

 writeln;

 if k = 0 then

   writeln('В классе нет учеников с ростом выше 180 см.')

 else

   writeln('Средний рост игроков баскетбольной команды: ',(sum/k):0:2);

 Readln;

end.