Задача на двоичную систему счисления

[Asya7]

Мне сказали, чтобы сделать эту задачу с помощью функции и не переводить 3 в десятичную систему счисления. Я кое-что сделала, но не могу разобраться как посчитать число p. Как это сделать, подскажите пожалуйста.

program nomer_589(c);

function um(const s: string): longint;
var
  i: integer;
  r: longint;
begin
  r := 0;
  for i := 1 to length(s) do 
  begin
    if (s[i] = '1') or (s[i] = '0') then
      r := r * 2 + (ord(s[i]) - ord('0'))
    else begin
      um := -i;
      exit;
    end;
  end;
  um := r
end;

function umnogenie(dec: longint): string;
begin
  if dec = 0 then umnogenie := ''
      else
  if odd(dec) then
    umnogenie := umnogenie( dec div 2) + '1'
  else
    umnogenie := umnogenie(dec div 2) + '0';
end;

const
  t = 3;

var
  s: string;
  d1: longint;

begin
  
  Write('введите первое двоичное число: '); ReadLn(s);
  d1 := um(s);
  WriteLn('Произведение равно ', umnogenie( d1 * t ));
  Readln
end.

[Serge_Bliznykov]

Asya7, когда нарушаешь правила и создаёшь кросспост (дубли) своих тем и сообщений очень трудно уследить за всеми копиями своих сообщений.

Если Вы забыли, то напоминаю, что Ваша тема с задачей 589 вот тут:
Задача с двоичной системой счисления