Нужно составить блок-схему по программе
Program Lab1;
const
n = 20;
var
a: array[1..n] of byte;
i, imin: byte;
begin
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;
imin := 1;
for i := 2 to n do
begin
if a[i] < a[imin] then imin := i;
end;
writeln('Минимум = ',a[imin],', позиция: ',imin);
end.

1. файл, фонограф
2. береста
3. хранения
4. долговременной
5. оперативная
6. информация
7. фотография
8. камень
9. папирус
10. Китай
11. пергамент

10 -> 2

2018 / 2 = 1009. Остаток 0.
1009 / 2 = 504. Остаток 1.
504 / 2 = 252. Остаток 0.
252 / 2 = 126. Остаток 0.
126 / 2 = 63. Остаток 0.
63 / 2 = 31. Остаток 1.
31 / 2 = 15. Остаток 1.
15 / 2 = 7. Остаток 1.
7 / 2 = 3. Остаток 1.
3 / 2 = 1. Остаток 1.

Берём ответ последнего деления и идём по остаткам от конца до начала.
11111100010

2 -> 16

От конца берём по 4 цифры и считаем их значение по заранее составленной таблице.
[111][1110][0010] = [7][14][2] = 7E2

16 ->10

Нумеруем цифры от конца до начала индексами в порядке возрастания, начиная от 0, впоследствии каждую цифру нужно умножить на порядок той системы счисления, из которой производится перевод (16), возведённой в степень, равную индексу, и всё сложить.
7E2 = [7][14][2] = 7 * 16^2 + 14 * 16^1 + 2 * 16^0 = 1792 + 224 + 2 = 2018

Что бы хранить, передавать и записывать информацию, а также редактировать её