//UCLN
uses crt;
var m,n,ucln,bcnn,i:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
ucln:=1;
if m<n then 
begin
for i:=1 to m do 
if (m mod i=0) and (n mod i=0) then 
begin
if ucln<i then ucln:=i;
end;
end
else begin
for i:=1 to n do 
if (m mod i=0) and (n mod i=0) then 
begin
if ucln<i then ucln:=i;
end;
end;
writeln('UCLN=',ucln);
//BCNN
bcnn:=m*n;
for i:=m*n-1 downto 1 do 
if (i mod m=0) and (i mod n=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('BCNN=',bcnn);
readln;
end.
//UCLN
uses crt;
var m,n,ucln,bcnn,i:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
ucln:=1;
if m<n then 
begin
for i:=1 to m do 
if (m mod i=0) and (n mod i=0) then 
begin
if ucln<i then ucln:=i;
end;
end
else begin
for i:=1 to n do 
if (m mod i=0) and (n mod i=0) then 
begin
if ucln<i then ucln:=i;
end;
end;
writeln('UCLN=',ucln);
//BCNN
bcnn:=m*n;
for i:=m*n-1 downto 1 do 
if (i mod m=0) and (i mod n=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('BCNN=',bcnn);
readln;
end.

m=int(input('nhap m: '))
n=int(input('nhap n: '))
ucln=1
for i in range (2,n+1):
    if (n%i==0 and m%i==0):
        ucln=i
bcnn=n
while not(bcnn%n==0 and bcnn%m==0):
    bcnn+=1
print(f'UCLN({m},{n})={ucln}')
print(f'BCNN({m},{n})={bcnn}')

**Nếu cần C/C++, Java hoặc C# thì nói để mình bổ sung

$\color{red}{\text{#Daoanhviet96}}$