Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số với yêu cầu sử dụng thuật toán Euclid. Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư 0) thì UCLN(a,b) bằng b Nếu a chia b dư r thì UCLN(a,b) = UCLN(b,r) a.Hướng dẫn: - Nhập a, b và gán r = a mod b. - Lặp với điều kiện r <> 0: b = r, a = b, r = a mod b. NHẬP XUẤT FILE!!!

const fi='input.inp';
      fo='output.oup';
var 
    a,b : longint ;
 function UC(m: longint;n:longint) : longint ;
     var i : longint ;
    begin
    m := abs(m);
    n := abs(n);
    while b <> 0 do
         begin
        i := a mod b ;
        a := b ;
        b := i ;
         end ;
        UC := a ;
    end ;
begin
assign(input,fi);assign(output,fo);
    reset(input);rewrite(output);
readln(input,a,b);
writeln(output,UC(a,b));
 close(input);close(output);
end .