Переведите число 1101101 из двоичной системы счисления в десятичную систему счисления

109 вот такой вот ответ

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b);   readln (c);   min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.