Дано натуральное n. Вычислить: 1/1^1 + 1/2^2 + ... + 1/n^n. составить программу в делфи,мат.модель и алгоритм

1) Имеем → KBRA69KBK
Меняем "RA6" на "FL" → KBFL9KBK
Теперь "KB" на "12B" → 12BFL912BK
Далее убираем 3 последних символа → 12BFL91
ответ: 1

2) Имеем → KBMAM9KBK
Меняем "MAM" на "RP" → KBRP9KBK
Теперь "KBK" на "1212" → KBRP91212
Далее убираем 3 последних символа → KBRP91
ответ: 1

3) Имеем → QWER3QWER1
Меняем "QWER" на "QQ" → QQ3QQ1
Теперь удаляем "3Q" → QQQ1
ответ: 4

4) Имеем: А, Б, В, И.
Условия:
• Начинается с согласной → Б... или В...
• После гласной не стоит гласная → АБ или АВ или ИБ или ИВ
• После согласной не стоит согласная → БА или БИ или ВА или ВИ
• Последняя не А и не В → ...Б или ...И
Варианты:
1] БВИ → После согласной стоит согласная, не подходит
2] АВИ → Начинается с гласной, не подходит
3] БАВ → Заканчивается на В, не подходит
4] БИБ → Удовлетворяет всем условиям
ответ: 4

Var
i,x:integer;
m:array[10..20] of integer;
begin
randomize;
for i:=10 to 20 do m[i]:=random(11)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
x:=m[10];
m[10]:=m[20];
m[20]:=x;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.

2)

var
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(100)+1;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do begin if m[i]<m[min] then min:=i;
if m[i]>m[max] then max:=i;
end;
x:=m[min];
m[min]:=m[max];
m[max]:=x;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.