ХЕЛП НАПИШИТЕ ТОЧНУЮ ФОРМУЛИРОВКУ ЗАДАЧИ
program ex_4;

var i, n: byte; k: integer; a: array[1..120] of integer;

begin . '

randomize;

write('сколько элементов в массиве? '); readln(n);

write('введите заданное число k: '); readln(k);

for i := 1 to n do

begin a[i] := -100 + random(201); write(a[i] : 6) end;

writeln;

for i := n downto 1 do

begin a[2 * i]:= k; a[2 * i - 1]:= a[i] end;

writeln('ответ:');

for i:= 1 to 2 * n do write(a[i]:6);

writeln

end.

Program aaa;
var
Y:array[1..1000,1..1000] of longint;
n,m,i,j,count5,countm9,s5,sm9:longint;
begin
writeln('введите размерность массива');
read(n,m);
writeln('введите массив');
for i:=1 to n do
 for j:=1 to m do
   read(Y[i,j]);
count5:=0;
countm9:=0;
s5:=0;
sm9:=0;
for i:=1 to n do 
for j:=1 to m do
 begin
  if Y[i,j]>5 then
      begin 
       inc(count5);
       s5:=s5+Y[i,j]
      end;
  if Y[i,j]<-9 then 
      begin 
        inc(countm9);
        sm9:=sm9+Y[i,j]
      end;
  end;
writeln('всего элементов больше 5:',count5,' ,сумма этих элементов равна:',s5);
writeln('всего элементов меньше -9:',countm9,' ,сумма этих элементов равна:',sm9)
end.

Var     n, m, sum: integer;   begin     sum : = 0;     repeat     writeln('введите числ с которого начинается ряд');     readln(n);     writeln('введите число которым заканчивается ряд');     readln(m);     until n< m;       if odd(n) then n : = n + 1;     if odd(m) then m : = m - 1;     sum : = (n + m) * (m - n + 2) div 4;     writeln('сумма чётных чисел натурального ряда: ', sum); end.