Перевести с десятичной системы счисления в двоичную и наооборот​

31(10) = 11111(2)

51(10) = 110011(2)

16(10) = 10000(2)

11101101(2) = 237(10)

110101(2) = 53(10)

1011011(2) = 91(10)

Var   a: array [0..44] of integer;   sum: integer;   pr: integer;   st: string; begin   sum: =0;   pr: =1;   for i: =0 to 44 do   begin       readln('a[',i,']=',a[i]);       str(a[i],st);       if length(st)=2 then         sum: =sum+a[i];       if length(st)=1 then         pr : =pr*a[i];   end;   writeln('сумма: ',sum,' произведение: ',pr);   readln end.

Ну раз значения случайные, тогда так. отдел +; использует вывод из "", из "", приём; пер   a, b, кол, сч: цел;   массив: доступ к ряд из цел;   ср_г: вещ; указ   кол : = приём.число();   вывод.цепь("^");   a : = приём.число();   вывод.цепь(" ");   b : = приём.число();   вывод.цепь("^");   создать(массив, кол);   от сч : = 0 до кол - 1 вып     массив[сч] : = узк(вширцел(.случ() * (b - a + + a   кон;   ср_г : = 1;   от сч : = 0 до кол - 1 вып     ср_г : = ср_г * массив[сч]   кон;   ср_г : = .степвв(ср_г, 1 / кол)   вывод.чвещ("^%g", ср_г, 0, 0, 0) кон .