Злравствуйте, решить. переведите число 436^8 по схеме n8 n2 n16 нужно само решение и ответ. и 2df^16 по схеме n16 n2 n8

436 в 8   = 4∙8^2+3∙8^1+6∙8^0   = 256+24+6 = 286 в  10   286 в  10 =  100011110 в 2, вот как получилось (надо решать столбиком)286/2=143 (остаток 0 )143/2=71 (остаток 1 )71/2=35 (остаток 1 )35/2=17 (остаток 1 )17/2=8 (остаток 1 )8/2=4 (остаток 0 )4/2= 2 (остаток 0 )2/2=1 (остаток 0 )286 в  10 =  100011110 в 2 286 в 10 = 11е в 16 (решается тоже столиком) 286/16=17 (остаток 14) 14=е 17/16=1 (остаток 1) и получается 286 в 10 = 11е в 16 436 в 8 =  100011110 в 2 =  11е в 16 2)  2df в  16   = 2∙16^2+13∙16^1+15∙16^0   = 512+208+15 = 735 в  10  735 в 10 =  1011011111 в 2 (решается столбиком)735/2=367 (остаток 1)367/2= 183 (остаток 1)183/2=91 (остаток 1)91/2=45 (остаток 1)45/2=22 (остаток 1)22/2=11 (остаток 0)11/2=5 (остаток 1)5/2=2 (остаток 1)2/2=1 (остаток 0)735 в 10 =  1011011111 в 2 735 в 10 =  1337 в 8 (решается столбиком)735/8=91 (остаток 7)91/8=11 (остаток 3)11/8=1 (остаток 3)735 в 10 =  1337 в 8 2df в  16  =  1011011111 в 2 =  1337 в 8

program xxx;

  var i, n, s, k : integer;

                        a : array [1..20] of integer;

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.