Какую программу ты используешь, когда хочешь сделать базу данных?

Access или Excel смотря для чего нужно.

254₈ = 172₁₀ = АС₁₆

9F₁₆ = 159₁₀ = 237₈

Объяснение:

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

254₈ = 2 * 8² + 5 * 8¹ + 4 * 8⁰ = 2 * 64 + 5 * 8 + 4 * 1 = 128 + 40 + 4 = 172₁₀

254₈ = 172₁₀

172 / 16 = 10 + остаток 12 (С)

10 / 16 = 0 + остаток 10 (А)

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

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

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

172₁₀ = АС₁₆

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

9F₁₆ = 9 * 16¹ + F * 16⁰ = 9 * 16 + 15 * 1 = 144 + 15 = 159₁₀

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

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

9F₁₆ = 159₁₀

159 / 8 = 19 + остаток 7

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

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

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

159₁₀ = 237₈

Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.