sử dụng hàm viết chương trình tìm bội chung nhỏ nhất của ba số nguyên dương

uses crt;
var a,b,c : integer;
function bcnn(x,y : integer) : integer;
var n,m,i : integer;
begin clrscr;
m:=x; n:=y;
while n<>0 do begin
i:=m mod n;
m:=n; n:=i; end;
bcnn:=(x*y) div m;
end;
function bc(x,y,z : integer): integer;
var n,m,i : integer;
begin
m:=bcnn(x,y); n:=z;
while n<>0 do begin
i:=m mod n;
m:=n; n:=i; end;
bc:=(x*y*z) div m;
end;
begin clrscr;
write('Nhap ba so :'); readln(a,b,c);
write(bc(a,b,c));
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 bcnn(int a, int b)
{
    return a*b/ucln(a,b);
}
int main()
{
    int a,b,c;
    cin>>a>>b>>c;
    cout<<bcnn(bcnn(b,c),a);
    //samon247
    return 0;
}