вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:
function cycle(a, b) {
while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a
return a;
}
но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:
var a,b: integer;
begin
a : = 32;
b : = 32;
while not (a = b) do
begin
if a > b then begin
a : = a - b;
end else
b : = b - a;
end;
writeln(a);
end.
