Помогите пожалуйста!!! Нужно перевести дробное число из 2 системы в 10 систему. Например 101,11. Надо на паскале или на c++

var input:string; num:array of string;    res1,res2:real;    i:integer;beginreadln(input);num:=input.Split(',');for i:=1 to num[0].Length do begin  res1 *= 2;  res1 += strtoint(num[0][i]);end;for i:=num[1].Length downto 1 do begin  res2 += strtoint(num[1][i]);  res2 /= 2;end;writeln(res1+res2);end.