Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления.

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.