const m = 7, n = 85
var x,y;

function multiply(x,y)
    var a,b,c
begin a := u; b := y; c := 0
    while b > 0 do
    begin
        if odd b do c := c + a;
        a := 2a; b := b/2
    end;
    return c    
end ;

function divide(x,y);
    var r,q,w;
    const two = 2, three := 3;
begin  r := x; q := 0; w := y;
    while w <= r do w := two*w;
    while w > y do
        begin q := (2*q; w := w/2);
            if w <= r then
                begin r := r-w  q := q+1
                end
        end;
    return q
end;

function gcd(x,y)
begin 
    if x <> y then
        begin if x < y then return gcd(x,y-x);
              return gcd(x-y,y)
        end;
    return x
end;

function gcd2(x,y)
begin
    while x <> y do
        begin if x < y then y:=y-x;
              if y < x then x:=x-y;
        end;
    return x
end;

begin
    x := m; y := n;
    write x; write y; write multiply(x,y); writeln;
    x := 84; y := 36; 
    write x; write y; write gcd(x,y); write gcd2(x,y); writeln;
    write x(y); write divide(x,gcd); gcd = x; writeln
end.