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

program dividers;
var i, a, b, d, min: integer;
begin
writeln(Введите два числа);
readln(a, b);
if alt;= 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 lt;= b then min:= a else min:= b;
d:= 1;
i:= 1;
while ilt;=min do
begin
if (a mod i = 0)  and (b mod i = 0) then d:= i;
i:= i + 1;
end;
writeln(Наивеличайший общий делитель: , d)
end.