Если кто-то сможет буду очень благодарна, желательно с решением, очень

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.

216₈ =  142₁₀ = 8Е₁₆

D3₁₆ = 211₁₀ = 323₈

Объяснение:

Переведите число 216₈ по схеме А8 → А10 → А16

216₈ = 2 * 8² + 1 * 8¹ + 6 * 8⁰ = 2 * 64 + 1 * 8 + 6 * 1 = 128 + 8 + 6 = 142₁₀

216₈ =  142₁₀

142 / 16 = 8 + остаток 14 (Е)

8 / 16 = 0 + остаток 8

записываем остатки снизу вверх

В качестве цифр 16-ой системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

142₁₀ = 8Е₁₆

Переведите число D3₁₆ по схеме А16 → А10 → А8

D3₁₆ = D * 16¹ + 3 * 16⁰ = 13 * 16 + 3 * 1 = 211₁₀

В качестве цифр 16-ой системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

D3₁₆ = 211₁₀

211 / 8 = 26 + остаток 3

26 / 8 = 3 + остаток 2

3 / 8 = 0 + остаток 3

записываем остатки снизу вверх

211₁₀ = 323₈