1-10 Перевести числа из одной системы счисления в другую.

В 1

1 347 10 ( )4;

6 155 18  ( )2  ( )16

2 892 10  ( )7;

7 51 10  ( )2  ( )8;

3 331 15  ( )10;

8 132 18  ( )2  ( )16;

4 155 18  ( )10;

9 8F7 16  ( )2  ( )8;

5 1FC7 16  () 2;

10 47 10  ( )2  ( )8.

11.Расставить числа в порядке убывания: А=2С6116; В=110102; С=2268.

12.Из заданной последовательности 1112, 348, 1012, А16, 768 удалить

самое маленькое число.
В файле В1 первая самостоятельная если что-то не понятно

1.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then 
 if a[i]<min then begin min:=a[i]; imin:=i; end;
write('Минимальное:', min, ' Индекс:', imin);
end.

2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.

Uses
    System.Collections.Generic,
    System;

var
    simple: List<integer> := new List<integer>;
    i, n, p: integer;
    m: longint;

begin
    read(n);
    for i := 2 to n do
    begin
        m := 1;
        foreach s: integer in simple do
            m := m * i mod s;
        if m > 0 then begin
            simple.Add(i);
//            write(i, ' ');
        end;
    end;
    writeln();
   
    foreach s: integer in simple do
    begin
        if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
            m := round(Math.Pow(2, s) - 1);
            if (m <= n) and simple.Contains(m) then
                write(m, ' ');
        end;
    end;
end.