Deskripsi untuk soal nomor 37 - 38

function apaini(a: integer; b: integer): integer;
var 
    x, y, r: integer;
begin
    x := a;
    y := b;
    while (y <> 0) do
    begin
        r := x mod y;
        x := y;
        y := r;
    end;
    apaini := x;
end;