program test_1002;
var
x,y,t:integer;
begin
readln(x,y) ;
if x>y then begin t:=x;x:=y;y:=t;end;
t:=0;
repeat
y:=y-x;t:=t+1;
until y<0;
write(’t=’,t-1);
end.

输入：512 16
输出：t=32