program qq; var i,j,s,t,n,m:integer; begin readln(n,m); i:=n; j:=m; s:=0; repeat inc(s,j div i); t:=i;i:=j mod i; j:=t; until i=0; writeln('Количество квадратов:',s); end.