Перевести число 23 из десятичной системы счисления в двоичной и наоборот число 11011

1)  23 (10)   = 10 111 (2)2)  11011(2)   = 27 (10)

Var a: array[1..100000] of integer; b: array[0..9]of boolean; n,i: integer; procedure two_max; var cnt, i: integer; begin   for i: = 1 to n do       b[a[i]]: = true;   for i: = 9 downto 0 do       if (b[i] = true)and(cnt < 2) then           begin               inc(cnt);               write(i, ' ');           end; end; begin read(n); for i: = 1 to n do   read(a[i]); two_max; end.

//1 var average: real; i,cnt: integer; begin for i: = 10 to 99 do   if (i mod 7 = 0) then       begin           average : = average + i;           inc(cnt);       end; average: =average / cnt; writeln(average); end. //2 var average: real; i,cnt: integer; begin i: = 0; cnt: = 0; while (true) do begin   inc(i);   if (i mod 5 = 0) then       inc(cnt);   average: =average + i;   if (cnt = 10) then       break end; average : = average / 10; writeln(average); end.