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.