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

program dividers;

var i, a, b, d, min: integer;

begin

writeln ('Введите два числа');

readln (a, b);

if a< = b then min:=a else min: = b;

d: = 1;

i: = 1;

repeat

if (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;

begin

writeln ('Введите два числа');

readln (a, b);

if a < = b then min: = a else min: = b;

d: = 1;

i: = 1;

while i<=min do

begin

if (a mod i = 0) and (b mod i = 0) then d: = i;

i: = i + 1;

end;

writeln ('Наибольший общий делитель: ', d)

end.