Нужно составить алгоритм: начало, ввод/вывод, действие и т. д.

Допустим у тебя дано число 1001101 (в бинарной си), чтобы перевести ее в десятичную си нужно:
1) Расставить коэффициенты 0,1,2,3 начиная с последней цифры в двоичной записи. В итоге у тебя получаться такие коэффициенты над числами: 1^6, 0^5, 0^4, 1^3, 1^2, 0^1, 1^0.
2) Теперь умножим каждое число в бинарной си на основание двоичной си (двойка) в той степени, которой ты посчитал.
Т.е.: 1*2^6, 0*2^5 и так  далее.
3) Затем остается только сложить полученные числа из второго шага и ты получишь число в десятичной си

Если текст будет в строчку,как обычно оно тут бывает,скачай мой тхт,там код в нормальном виде

var  a, b, c: integer;  a1, b1, c1: integer;
beginwhile true dobegin  writeln('Введите 3 числа');  readln(a, b, c);  if (a mod 2) = 0 then // четным плюс 1    a1 := 1;  if (b mod 2) = 0 then    b1 := 1;  if(c mod 2) = 0 then    c1 := 1;  if((a mod 2) <> 0) and ((b mod 2) <> 0) and ((c mod 2) <> 0) then //При четных нету    writeln('четных нет');  if(a1=1)and(b1=0)and(c1=0)then //если только 1 четное  writeln(a)  else   if(a1=0)and(b1=1)and(c1=0)then  writeln(b)  else   if(a1=0)and(b1=0)and(c1=1)then  writeln(c);    if (a1 = 1) or (b1 = 1) or (c1 = 1) then //Выяснение большего числа  begin    if(a1 = 1) and (b1 = 1) and (c1 = 1) then // если 3 числа четные    begin      if (a >= b) and (a >= c) then        writeln(a)      else if (b >= a) and (b >= c) then        writeln(b)      else if(c >= b) and (c >= a) then        writeln(c)    end    else if (a1 = 1) and (b1 = 1) then//если а и б четные    begin      if(a > b) then        writeln(a)      else if (b > a) then        writeln(b)    end    else if(a1=1)and(c1=1)then//если а и с    begin        if(a > c) then        writeln(a)      else if (c > a) then        writeln(c)    end    else if(b1=1)and(c1=1) then//если б и с    begin    if(b>c)then    writeln(b)    else if(c>b)then    writeln(c)    end;  end; end;end.