viết chương trình hoàn chỉnh nhập vào 2 số nguyên dương a và b. Tính bội chung nhỏ nhất của 2 số a và b. Có sử dụng chương trình con.

var a,b : integer;
function bcnn(x,y : integer) : integer;
var m,n,r,ucln : integer;
begin clrscr;
m:=x; n:=y;
while n <> 0 do begin
r:=m mod n;
m:=n;
n:=r;
end;
ucln:=m;
bcnn:=(x*y) div ucln; end;
begin clrscr;
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Boi chung nho nhat cua ',a,' va ',b,' la :', bcnn(a,b));
readln
end.

#include<bits/stdc++.h>
using namespace std;
int ucln(int a, int b){
    while (a*b != 0){
        if (a > b){
            a %= b;
        }else{
            b %= a;
        }
    }
    return a + b;
}
int main()
{
    int a,b;
    cout<<"Nhap a,b: ";
    cin>>a>>b;
    cout<<"BCNN("<<a<<","<<b<<")="<<(a*b)/ucln(a,b);
    //samon247
    return 0;
}