Вычислить и вынести сумму целых чисел кратных 3 в интервале от 1 до n

1.1 цикл ,,ДО"
1.2 цикл ,, ПОКА"
1.3 цик ,, ДЛЯ"

очень буду очень благодарна
​

Program glg;
var
a:array[1..10] of integer;
min, kol: integer;

begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end

i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.

Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)

1010₂ = А₁₆
45₁₀ = 2D₁₆
Между A и 2D находятся лишь 1А₁₆ и 2А₁₆, что составляет 16+10=26₁₀ и 32+10=42₁₀
Почему была использована шестнадцатиричная система? В ней последняя цифра как раз занимает 4 бита, которые нам известны и мы меняли только более старшие биты.
Ответ: 10, 16, 32

Объем занимаемый одним пикселем i. k=2^i , где k кол-во цветов. 4=2^i, отсюда i=2 битам. Переведем 5 килобайт=5*1024 байт=5*1024*8 бит= 40960 бит - это будет I. Количество пикселей n=I/i=40960/2=20480 пикселей.

Проще всего воспользоваться таблицей тетрад. Выглядит так
0000 - не зарезирвировано
0001 - А
0010 - В
0011 - Д
0100 - Е
0101 - Ж
0110 - И
0111 - К
1000 - Л
1001 - М
1010 - Н
1011 - О
1100 - П
1101 - Р
1110 - Ь
1111 - Ш

1011 - О, 1100 - П, 0100 - Е, 1000 - Л, 1110 - Ь
Слово ОПЕЛЬ