Найти сумму четных делителей введенного целого числа(pascal abc.net)

Program n1;
var a,sum,i: integer;
begin
sum:=0;
readln(a);
for i:=1 to a div 2 do if (a mod i) = 0 then
if i mod 2=0 then sum:=sum+i;
if a mod 2=0 then sum:=sum+a;
writeln(sum);
end.

Во-первых, не whill, а while.
 Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
 Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.

1.  123 в четверичной: 1*4^2+2*4+3= 16+4+3=23

2. 322 в шестиричной: 3*6^2+2*6^1+2= 3*36+12+2=122

3.  99 в шестнадцатеричной: 9*16+9= 144+9=153

4.  FAC в шестнадцатеричной: 15*16^2+10*16+12= 15*256+160+12=3840+172=4012

5.  111 в двоичной: 4+2+1=7

6.  1001101 в двоичной: 1+4+8+64=77

7.115 в восьмеричной: 64+8+5=77

8. 4С в шестнадцатеричной: 4*16+13=77

9.  34 в семиричной: 3*7+4=25

10.  710 в восьмеричной: 7*64+8=448+8=456

Объяснение:

Вот тебе небольшие лайфхаки для перевода из двоичной в восьмеричную/шестнадцатеричную:

7.  1001101 в восьмеричной: разбиваем на триады начиная справа:

101 = 5 001=1 1=>001=1 получается: 115

8.  1001101 в шестнадцатеричной: также разбиваем, но уже на четыреады:

1101=13=>C 100=4 получается: 4С