Десятичная Двоичная восьмеричная шестнадцатеричная
0 0 0 0
1 1 1 1
2 10 2 2
3 11 3 3
4 100 4 4
5 101 5 5
6 110 6 6
7 111 7 7
8 1000 10 8
9 1001 11 9
10 1010 12 А (если в двоичной системе цифра 16, то в шестнадцатеричной 10, если 17, то 11 и так далее)
Если что непонятно, задавай вопросы
Var mass:array[1..14] of integer;
i,sumch,sumnech:integer;
begin
i:=0;
sumch:=0;
sumnech:=0;
repeat
i:=i+1;
mass[i]:=random(10)+1;
if (mass[i] mod 2) =0
then sumch:=sumch+mass[i]
else sumnech:=sumnech+mass[i];
writeln(mass[i]);
until i=14;
writeln('сумма четных = '+sumch);
writeln('сумма нечетных = '+sumnech);
end.