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

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.