напишите программу вычисления наибольшего общего делителя двух целых чисел. а)с оператором repeat б) с оператором while ( в интернете неправильно)помогите пожалуйста
var a,b: integer;
begin
readln(a,b);
repeat
if(a>b) then a:=a-b;
if(b>a) then b:=b-a;
until (a<>b);
writeln('gcd = ', a);
end.
while (a<>b) do begin
end;