program Project2;

{$APPTYPE CONSOLE}

var

n,n1,n2,rn1,rn2,acrn2:integer;

begin

writeln(‘programa que resolve a multiplicaçao muito louca’);

writeln(‘digite um valor: ‘);

read(n1);

writeln(‘digite outro valor: ‘);

read(n2);

  if n1 mod 2 =1 then

  begin

  acrn2:=n2;

  end

    else

    if n1 mod 2=0 then

    begin

    acrn2:=0;

    end;

rn1:=0;

  while rn1<>1 do

  begin

  rn1:=n1 div 2;

  rn2:=n2*2;

    if rn1 mod 2 =1 then

    begin

    acrn2:=acrn2+rn2;

    end;

  n1:=rn1;

  n2:=rn2;

  end;

writeln(acrn2);

read(acrn2);

end.