tìm ước chung lớn nhất và bội chung nhỏ nhất

[thanhchi89]

function UCLN(x:integer; y:integer):integer;
var n:integer;
begin
x:=abs(x);
y:=abs(y);
repeat
begin
sodu:=y;
y:=x mod y;
x:=sodu;
end;
until (y=0);