var n,m,k:integer;
begin
write('ÂÂÅÄÈÒÅ ÑÒÎÐÎÍÓ ÏÐßÌÎÓÃÎËÜÍÈÊÀ : '); readln(n);
write(' ÂÂÅÄÈÒÅ ÂÒÎÐÓÞ ÑÒÎÐÎÍÓ ÏÐßÌÎÓÃÎËÜÍÈÊÀ : '); readln(m);
k:=1;
while n<>m do
      begin
      if n>m then n:=n-m else m:=m-n;
      inc(k);
      end;
write('ÌÎÆÍÎ ÐÀÇÄÅËÈÒÜ ÏÐßÌÎÓÃÎËÜÍÈÊ ÍÀ  ',k,'  ÊÂÀÄÐÀÒÎÂ');
end.