Напишите программу для вычисления наибольшего общего делителя двух целых чисел: а)используйте оператор repeat б)используйте

program dividers;var i, a, b, d, min: integer;beginwriteln(\'Введите два числа\');readln(a, b);if a<= b then min:=a else min:= b;d:= 1;i:= 1;repeatif (a mod i = 0)  and (b mod i = 0) then d:= i;i:= i + 1;until i = min + 1;writeln(\'Наибольший общий делитель: \',d)end.

program dividers;var i, a, b, d, min: integer;beginwriteln(\'Введите два числа\');readln(a,b);if a <= b then min:= a else min:= b;d:= 1;i:= 1;while i<=min dobeginif (a mod i = 0)  and (b mod i = 0) then d:= i;i:= i + 1;end;writeln(\'Наибольший общий делитель: \', d)end.