Определить сумму всех четных чисел в диапазоне от а1 до аа , включая границы. границы диапазона заданы в шестнадцатиричной системе счисления. ответ записать в восьмиричной системе счисления

четными будут:

a2,a4,a6,a8,aa

сумма:

перевод:

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

на 1 дереве - 5 

на 2дереве - 7