напишите программку вычисления наибольшего общего делителя двух целых чисел. а)с оператором

по методу евклида:

var a,b:integer;

begin

 readln(a,b);

 repeat

   if agt;b then

     a:=a mod b

   else

     b:=b mod a;

 until (a=0) or (b=0);

 writeln(a+b);

end.

-------------------------

var a,b:integer;

begin

 readln(a,b);

 while (alt;gt;0) and (blt;gt;0) do

   if agt;b then

       a:=a mod b

     else

       b:=b mod a;

 writeln(a+b);

end.