const m:=7,n=85;
var x,y,z,q,r;
procedure multiply;
var a,b;
begin a=x;b:=y;z:=0;
   while b>0 do
        begin if Odd b then z:=z+a;
            a:=2*a;b:=b/c
       end
end;

begin x:=m;y:=n;call mvltiply;
end.