напишите линейную программку перевода хоть какого целого четырехзначного двоичного числа в

Var i, input: integer;
     output: real;
     temp_str: string;
begin
    write('Введите четырехзначное двоичное число: '); readln(input);
    temp_str := IntToStr(input);
    for i := 1 to 4 do output := output + (StrToInt(temp_str[i]) * exp(ln(2)*(4-i)));           writeln(input, ' в десятичной: ', output);
end.