Viết chương trình nhập 2 phân số a/b và c/d . rồi quy đồng mẫu số 2 phân số đó có sử dụng chương trình con tìm bội chung nhỏ nhất của 2 số nguyên dương . Pl help me !!!

Program NN;
Uses crt;
Var a,b,c,d,BC: longint;

Function BCNN(a,b: longint): longint;
Var UCLN: longint;
Begin
        BCNN:=a*b;
        While a<>b do
                If a>b then a:=a-b
                Else b:=b-a;
        BCNN:=BCNN div a;
End;

Begin
        Clrscr;
        Write('Nhap a,b,c,d: '); Readln(a,b,c,d);
        If b<>d then
        Begin
                BC:=BCNN(b,d);
                a:=a*BCNN(b,d) div b;
                b:=BC;

                c:=c*BCNN(b,d) div d;
                d:=BC;
        End;
        Write(a,'/',b,' ',c,'/',d);
        Readln
End.