Program NOD;
Var a, b: integer;
Begin
write ('   : ');
readln (a, b);
while a<>b do    //   
  if a>b then    //  
     a:=a-b      // 
  else           //  
     b:=b-a;
writeln ('   = ', a)
End.
