Hàm USCLN(a,b)
function uscln(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
uscln:=a;
end;
Hàm BCNN(a,b)
function bcnn(a,n:integer):integer;
begin
bcnn:=a*b;
while a<>b do
if a>b then a:=a-b else b:=b-a;
bcnn:=bcnn div a;
end;