Картина в музее формы восприятия

Картина в музее это  визуальная форма восприятия

Const n = 10;
var
  a:array[1..n]of integer;
i,k,temp:integer;

begin
  for i:=1 to n do a[i]:=random(21) - 10;
  repeat
    writeln('Введите k (k<>1 и k<>10)');
    readln(k);
    if (k=1) or (k=n) then writeln('Ошибка, повторите ввод');
  until (k<>1) and (k<>n);
  for i:=1 to n do write(a[i]:4);writeln;
  temp:=a[k-1];a[k-1]:=a[k+1];a[k+1]:=temp;
  for i:=1 to n do write(a[i]:4);  
end.

Тестовое решение:
Введите k (k<>1 и k<>10)
1
Ошибка, повторите ввод
Введите k (k<>1 и k<>10)
5
   7  -5  -6   6  -7   3   9   8   7  -6
   7  -5  -6   3  -7   6   9   8   7  -6

Ну сама считай)

Идут числа которые делятся на 3

3

6

9

12

15

18

21

24

И каждые 3 часа она делится на 2 т.е.

3=2 (изначально)

Потом 6=6 (т.к. 1 амеба делится на 2, получается что 2+2+2=6)

9=6 (сейчас 6 таких амёб поделились ещё на 2, т.е 18) и так далее

12= 18

15=54

18=162

21=486

24=1458

Т.е каждый раз просто плюсуешь три раза, потому что 1 амёба делится на 2 образуя 3 амёб, поэтому и плюсовать на одно и тоже число надо 3 раза

Если не поняла то смотри для примера возьму опять число 18:

18+18+18=54

Если решать долгим то сама всё поймешь:

(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)=54 (Можешь просто посчитать что тут 18 скобочек (1+2))