eukl.pas

{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
Program eukl;

{
 (c) Petr "Zweistein" Prokop

 Program Eukleides :
  NejvŘtçˇ spoleźně dŘlitel dvou źˇsel
}

Function NSD(Aa,Bb:Integer):Integer;
Begin;
 Repeat;
  if aa>bb then aa:=aa-bb;
  if bb>aa then bb:=bb-aa;
 Until aa=bb;
 NSD:=aa;
End;

var a,b:integer;

Begin;
 Readln(A);
 Readln(B);
 writeln (NSD(a,b));
end.