Можно закодировать 2 в степени 6 - 64 числа.
2^6=64
Думаю алгоритм будет таким:
Математик Эйлер... Швейцария (1707—1727)
Леонард Эйлер родился в 1707 году в семье базельского пастора Пауля Эйлера, друга семьи Бернулли. Рано проявил математические способности. Начальное обучение получил дома под руководством отца, учившегося некогда математике у Якоба Бернулли. Пастор готовил старшего сына к духовной карьере, однако занимался с ним и математикой — как в качестве развлечения, так и для развития логического мышления. Одновременно с обучением в гимназии мальчик увлечённо занимался математикой, а в последние гимназические годы посещал университетские лекции младшего брата Якоба, Иоганна Бернулли.
Базельский университет в XVII—XVIII веках
20 октября 1720 года 13-летний Леонард Эйлер стал студентом факультета искусств Базельского университета. Но любовь к математике направила Леонарда по иному пути. Вскоре способный мальчик обратил на себя внимание профессора Иоганна Бернулли. Он передал одарённому студенту математические статьи для изучения, а по субботам пригласил приходить к нему домой, чтобы совместно разбирать непонятное. В доме своего учителя Эйлер познакомился и подружился с сыновьями Бернулли — Даниилом и Николаем, также увлечённо занимавшимися математикой.
8 июня 1724 года 17-летний Леонард Эйлер произнёс на латыни речь о сравнении философских воззрений Декарта и Ньютона и был удостоен учёной степени магистра.
В последующие два года юный Эйлер написал несколько научных работ. Одна из них, «Диссертация по физике о звуке» , получившая благоприятный отзыв, была представлена на конкурс для замещения неожиданно освободившейся в Базельском университете должности профессора физики (1725). Но, несмотря на положительный отзыв, 19-летнего Эйлера сочли слишком юным, чтобы включить в число кандидатов на профессорскую кафедру. Надо отметить, что число научных вакансий в Швейцарии было совсем невелико. Поэтому братья Даниил и Николай Бернулли уехали в Россию, где как раз шла организация Академии наук; они обещали похлопотать там и о должности для Эйлера.
<span>В начале зимы 1726 года Эйлеру сообщили из Санкт-Петербурга: по рекомендации братьев Бернулли он приглашён на должность адъюнкта по физиологии с окладом 200 рублей [3]. Получение аванса для компенсации проездных расходов растянулось почти на год, и лишь 5 апреля 1727 года Эйлер навсегда покинул Швейцарию.</span>
Const n=20;
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
<span>end.</span>