Написать программу, посчитать доход от вклада с постоянной % ставкой 6.5 в год. первоначальный взнос и длительность вклада(в месяц) задает пользователь. указать денежную сумму по вкладу на конец срока вклада. )))

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('двоичное число: ');   if s.matchvalues('[^01]').count> 0 then writeln('не двоичное число')   else begin       var (n,k): =(biginteger(0),biginteger(1));       for var i: =s.length downto 1 do begin           if s[i]='1' then n+=k;           k*=2           end;       writeln('десятичное значение: '+n.tostring)       end end. примеры двоичное число: 10101010101111110100010101010101010101010110101010101 десятичное значение: 6007631318265173 двоичное число: 11110101010101010010010101010110101011011110100000110100100101010101010101010101010101101010101011010101010101010101010101011111111111110101001010000001010101011111010010101 десятичное значение: 11473727937279925775504671485025665850663901141319317