Задача 4. Напишите процедуру расчета объема и площади поверхности параллелепипеда. ​

Const   n = 12; var   a: array[1..n] of integer;   i, k, p, max: integer; begin   randomize;   write('введите число к: ');   readln(k);   write('элементы массива: ');   p : = 0;   for i : = 1 to n do   begin       a[i] : = random(101)-50;       write(a[i]: 5);       if a[i] > k then p : = p + 1;   end;   writeln(#13#10, 'количество элементов, больших ', k, '=', p);   max : = -32768;   for i : = 1 to n do   begin       a[i] : = 3 * a[i];       if max < a[i] then max : = a[i]   end;   if max > 0 then writeln('максимальный элемент массива равен ', max)   else writeln('в массиве нет положительных элементов') end. тестовое решение: введите число к: 25 элементы массива:     -10    43    -6      8    -4    39    26  -30  -33  -10  -34    -4 количество элементов, больших 25=3 максимальный элемент массива равен 129