program Nejvetsi_spolecny_delitel_3;

  (* Program, ktery pro dvojici prirozenych cisel a, b
     urci jejich nejvetsiho spolecneho delitele
     Verze: 3 *)

var a,b,x,y:integer;

begin
  Write('Zadej cisla a, b: ');
  ReadLn(a,b);
  x:=a; y:=b;
  repeat
    while x>y do x:=x-y;
    while y>x do y:=y-x;
  until x=y;
  WriteLn('Nejvetsi spolecny delitel cisel ',a,' a ',b,' je ',x);
end.