Прочитайте задачу, которая предлагает Ивану-Царевичу выбрать правильное направление пути. У Ивана-Царевича есть два варианта дальнейшего пути:
направо - «Коня потеряешь»
налево - «Голову сложишь»

Составьте блок-схему задачи

На языке Python:

Без комментариев:

a = []

for x in range(1, 21):

   a.append(int(input("Введите число " + str(x + 0) + ": ")))

b = 0

b = a[3]

a[3] = a[1]

a[1] = b

for x in range(0, 20):

   print("Число", x + 1, "в массиве:", a[x])

С комментариями:

a = [] # Сначала мы создаем пустой массив

for x in range(1, 21): # и 20 раз (мы пишем 21 так как оно дойдет до числа не включая его)

# P. S. тут мы пишем не <<"Введите число", x..>>, а <<"Введите число" + str(x)..>>. Это потому что в отличии от функции print(), функция input() принимает только 1 аргумент, и нам придется использовать конкатенацию строк, но она сама не преоброзует число в строку, так что нам надо будет использовать функцию str() чтобы это сделать

   a.append(int(input("Введите число " + str(x + 0) + ": "))) # спрашиваем у пользователя ввод числа и добавляем его в массив

b = 0 # затем мы создаем переменную b в которой будем хранить значение 4-ого элемента

b = a[3] # присваеваем переменной b значение 4-ого элемента

a[3] = a[1] # присваем значение 2-ого элемента 4-ому, пока что и 2-ой и 4-ый элемент имеют значение 2-ого элемента

a[1] = b # и теперь присваеваем второму элементу значение четвертого элемента

# P. P. S. Мы пишем не a[2] и a[4], а a[1] и a[3] потому, что элементы массива в большинстве языков программирования начинаются с нуля

for x in range(0, 20): # и теперь 20 раз (тут мы все-таки ставим от 0 до 20 (смотри P.P.S.) и добавляем 1 когда печатаем)

   print("Число", x + 1, "в массиве:", a[x]) # мы выводим соответствующее число массива

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.