Thuật toán tìm ƯCLN - BT

Thuật toán tìm ƯCLN function UCLN(a,b: integer): integer; var r : integer; begin while b<>0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end;