Напишите (учитывая что программа 10 класса) сколько не ищу — все не подходит (как учительница говорит) !

вот мой г**нокод на 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.